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

本文主要是介绍老版病历入院记录相关内容，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

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*/