新版pacs超声科工作量

select c.序号,1 排序, a.登记人, a.标本部位, a.检查方法, sum(a.次数) As 次数, b.检查费 As 单价, sum(a.次数) * b.检查费 As 总额
  from (select c.诊疗项目id, b.f_stu_char1005 登记人, c.标本部位, c.检查方法, Count(c.标本部位) As 次数
          from v_rpt_full_report@pacs_ris B, 病人医嘱记录 C,病人医嘱发送 d
         Where b.f_Stu_Char401 = C.相关ID
           and c.id=d.医嘱Id
           and c.病人来源 [2]
           And d.首次时间 Between [0] And [1]
           and c.执行科室id=151
         Group By b.f_stu_char1005, c.诊疗项目id, c.标本部位, c.检查方法
         Order By b.f_stu_char1005, c.诊疗项目id, c.标本部位, c.检查方法) a,
       (Select a.诊疗项目id, To_Char(Sum(e.现价 * a.收费数量), 'fm999999900.00') As 检查费, a.检查部位, a.检查方法
          From 诊疗收费关系 a, 诊疗项目目录 b, 收费项目目录 d, 收费价目 e
         Where a.诊疗项目id = b.Id
           And a.收费项目id = d.Id
           And a.收费项目id = e.收费细目id
           And Nvl(e.终止日期, To_Date('3000-01-01', 'yyyy-mm-dd')) =
               To_Date('3000-01-01', 'yyyy-mm-dd')
         Group By a.诊疗项目id, a.诊疗项目id, a.检查部位, a.检查方法) b,
         (Select Rownum As 序号,姓名
From (select Distinct Id,姓名 from 人员表 c,部门人员 t Where  c.id=t.人员id)) c
 where a.标本部位 = b.检查部位
   And a.检查方法 = b.检查方法
   And a.诊疗项目id = b.诊疗项目id
   and a.登记人=c.姓名
 Group By a.登记人, a.标本部位, a.检查方法, b.检查费,c.序号

union all
Select 序号,2 排序, 登记人,'小计：' 标本部位,Null 检查方法,Sum(次数) 次数,Null 单价,Sum(总额) 总额 From (
select c.序号, a.登记人, '小计：'标本部位, null 检查方法, sum(a.次数) As 次数, b.检查费 As 单价, sum(a.次数) * b.检查费 As 总额
  from (select c.诊疗项目id, b.f_stu_char1005 登记人, c.标本部位, c.检查方法, Count(c.标本部位) As 次数
          from v_rpt_full_report@pacs_ris B, 病人医嘱记录 C,病人医嘱发送 d
         Where b.f_Stu_Char401 = C.相关ID
           and c.id=d.医嘱Id
           and c.病人来源 [2]
           And d.首次时间 Between [0] And [1]
           and c.执行科室id=151
         Group By b.f_stu_char1005, c.诊疗项目id, c.标本部位, c.检查方法
         Order By b.f_stu_char1005, c.诊疗项目id, c.标本部位, c.检查方法) a,
       (Select a.诊疗项目id, To_Char(Sum(e.现价 * a.收费数量), 'fm999999900.00') As 检查费, a.检查部位, a.检查方法
          From 诊疗收费关系 a, 诊疗项目目录 b, 收费项目目录 d, 收费价目 e
         Where a.诊疗项目id = b.Id
           And a.收费项目id = d.Id
           And a.收费项目id = e.收费细目id
           And Nvl(e.终止日期, To_Date('3000-01-01', 'yyyy-mm-dd')) =
               To_Date('3000-01-01', 'yyyy-mm-dd')
         Group By a.诊疗项目id, a.诊疗项目id, a.检查部位, a.检查方法) b,
         (Select Rownum As 序号,姓名
From (select Distinct Id,姓名 from 人员表 c,部门人员 t Where c.id=t.人员id)) c
 where a.标本部位 = b.检查部位
   And a.检查方法 = b.检查方法
   And a.诊疗项目id = b.诊疗项目id
   and a.登记人=c.姓名
 Group By a.登记人, b.检查费,c.序号
) Group By 序号,登记人

union all
Select 999 序号,2 排序,'合计：'  登记人, Null 标本部位,Null 检查方法,Sum(次数) 次数,Null 单价,Sum(总额) 总额 From(
select c.序号,2 排序, a.登记人, '小计：'标本部位, null 检查方法, sum(a.次数) As 次数, b.检查费 As 单价, sum(a.次数) * b.检查费 As 总额
  from (select c.诊疗项目id, b.f_stu_char1005 登记人, c.标本部位, c.检查方法, Count(c.标本部位) As 次数
          from v_rpt_full_report@pacs_ris B, 病人医嘱记录 C,病人医嘱发送 d
         Where b.f_Stu_Char401 = C.相关ID
           and c.id=d.医嘱Id
           and c.病人来源 [2]
           And d.首次时间 Between [0] And [1]
           and c.执行科室id=151
         Group By b.f_stu_char1005, c.诊疗项目id, c.标本部位, c.检查方法
         Order By b.f_stu_char1005, c.诊疗项目id, c.标本部位, c.检查方法) a,
       (Select a.诊疗项目id, To_Char(Sum(e.现价 * a.收费数量), 'fm999999900.00') As 检查费, a.检查部位, a.检查方法
          From 诊疗收费关系 a, 诊疗项目目录 b, 收费项目目录 d, 收费价目 e
         Where a.诊疗项目id = b.Id
           And a.收费项目id = d.Id
           And a.收费项目id = e.收费细目id
           And Nvl(e.终止日期, To_Date('3000-01-01', 'yyyy-mm-dd')) =
               To_Date('3000-01-01', 'yyyy-mm-dd')
         Group By a.诊疗项目id, a.诊疗项目id, a.检查部位, a.检查方法) b,
         (Select Rownum As 序号,姓名
From (select Distinct Id,姓名 from 人员表 c,部门人员 t Where c.id=t.人员id)) c
 where a.标本部位 = b.检查部位
   And a.检查方法 = b.检查方法
   And a.诊疗项目id = b.诊疗项目id
   and a.登记人=c.姓名
 Group By a.登记人, b.检查费,c.序号 )
 order By 序号,排序,标本部位,检查方法, 总额