老版病历入院记录相关内容

Select a.住院号||'_'||a.主页id hisid,
       replace((Select wm_concat(c1.内容文本)  From  电子病历内容 c, 电子病历内容 C1 Where b.Id = c.文件id And c.Id = C1.父id And c.内容文本 In ('现病史') ),' ','') blnr,
       b.创建时间 jlsj,
       (Select listagg(c1.内容文本) within Group (Order By c1.对象属性 desc) From  电子病历内容 c, 电子病历内容 C1 Where b.Id = c.文件id And c.Id = C1.父id And c.内容文本='病人主诉' ) zs,
       (Select listagg(c1.内容文本) within Group (Order By c1.对象属性 desc) From  电子病历内容 c, 电子病历内容 C1 Where b.Id = c.文件id And c.Id = C1.父id And c1.要素名称='体温' ) tw,
       (Select listagg(c1.内容文本) within Group (Order By c1.对象属性 desc) From  电子病历内容 c, 电子病历内容 C1 Where b.Id = c.文件id And c.Id = C1.父id And c1.要素名称='脉搏' ) mb,
       (Select listagg(c1.内容文本) within Group (Order By c1.对象属性 desc) From  电子病历内容 c, 电子病历内容 C1 Where b.Id = c.文件id And c.Id = C1.父id And c1.要素名称='呼吸' ) hx,
       (Select listagg(c1.内容文本,'/') within Group (Order By c1.要素名称) From  电子病历内容 c, 电子病历内容 C1 Where b.Id = c.文件id And c.Id = C1.父id And c1.要素名称 In ('收缩压','舒张压') ) xy,
       Replace((Select  listagg(c1.内容文本) within Group (Order By c1.对象序号)
        From 病案主页 a1, 电子病历记录 b, 电子病历内容 c, 电子病历内容 C1 Where a1.病人id = b.病人id And a1.主页id = b.主页id
        And b.Id = c.文件id And c.Id = C1.父id And c.内容文本='初步诊断' And b.病历名称 Like '%首次病程%' And a1.病人id=a.病人id
        And a1.主页id=a.主页id And a1.出院日期 Between To_Date('2022-10-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*/),' ','') cbzd
  From 病案主页 a, 电子病历记录 b
 Where a.病人id = b.病人id
   And a.主页id = b.主页id
   And b.病历名称 Like '%入院记录%'
      --And a.病人id=1157
      --And a.主页id=9
   And a.出院日期 Between
       To_Date('2022-10-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*/