转科患者统计表

select  decode(n.机构类型,'A','职工','B','居民') 医保类型,
t.病人id,
t.主页id,
t.姓名,t.住院号||lpad(t.主页id,3,0) 住院号,t.入院日期,t.出院日期,p.结算日期,(select 名称 from 部门表 where id =t.入院科室id) 入院科室,
listagg((select 名称 from 部门表 where id =m.科室id),' → ') within group(order by m.开始时间)  转科科室,
(select 名称 from 部门表 where id =t.出院科室id) 出院科室 from 病案主页 t ,(
select x.* from (select q.病人id,
                               q.主页id,
                               a.开始原因,
                               a.开始时间,
                               科室id,
                               终止时间,
                               终止原因
                          from 病案主页 q, 病人变动记录 a  
                         where (  终止原因 in(1,3) )
                           and q.病人id = a.病人id
                           and q.主页id = a.主页id
                           --and q.病人id=4003536
                           --and q.主页id=1
                           --and q.出院日期 between /*B0*/TO_DATE('2024-05-01 00:00:00','YYYY-MM-DD HH24:MI:SS')/*E0*/ and  /*B1*/TO_DATE('2024-05-31 23:59:59','YYYY-MM-DD HH24:MI:SS')/*E1*/
                           And q.出院科室id is not null
                           and exists (select 1
                                  from 病人变动记录 k
                                 where k.病人id = a.病人id
                                   and k.主页id = a.主页id
                                   and (k.开始原因=3 or k.终止原因 = 3)    
                                   )
                         order by 开始时间, 开始原因) x  ) m,sdwfyb_住院登记记录 n,
(select   p.病人id,p.主页id,max(p.结算日期) 结算日期 from sdwfyb_住院结算记录 p group by p.病人id,p.主页id having max(p.结算日期) between /*B0*/TO_DATE('2024-05-01 00:00:00','YYYY-MM-DD HH24:MI:SS')/*E0*/ and  /*B1*/TO_DATE('2024-05-31 23:59:59','YYYY-MM-DD HH24:MI:SS')/*E1*/ ) p
where t.病人id=m.病人id
  and t.主页id=m.主页id
  and t.病人id=n.病人id
  and t.主页id=n.主页id
  and t.病人id=p.病人id
  and t.主页id=p.主页id
group by t.姓名,t.住院号,t.入院日期,t.入院科室id,t.出院科室id,n.机构类型,t.病人id,t.主页id,t.出院日期,p.结算日期