中医治疗费用占住院治疗费用比例＞=60%

---------中医治疗费用占住院治疗费用比例>=60%
select count(*) as 人数 from（
select 病人id,主页id, round(中药治疗费/decode(总金额,0,1,总金额)*100,2) as 百分之六十 from （
select 
病人id,主页id,Sum(合计) as 总金额,
    sum(中医外治+中医骨伤+针刺与灸法+中医推拿治疗+中医肛肠治疗+中医特殊治疗+中医诊断+中医其他+辨证施膳+中药特殊调配加工+中成药费+中草药费+配方颗粒费) as 中药治疗费
from ( 
Select 
病人id,主页id,
Sum(金额) As 合计,
Sum(decode(项目,'一般医疗服务费',金额,0)) As 一般医疗服务费,
Sum(decode(项目,'一般治疗操作费',金额,0)) As 一般治疗操作费,
Sum(decode(项目,'护理费',金额,0)) As 护理费,
Sum(decode(项目,'其他费用',金额,0)) As 其他费用,
Sum(decode(项目,'中医辨证论治费',金额,0)) As 中医辨证论治费,
Sum(decode(项目,'中医辨证论治会诊费',金额,0)) As 中医辨证论治会诊费,
Sum(decode(项目,'病理诊断费',金额,0)) As 病理诊断费,
Sum(decode(项目,'实验室诊断费',金额,0)) As 实验室诊断费,
Sum(decode(项目,'影像学诊断费',金额,0)) As 影像学诊断费,
Sum(decode(项目,'临床诊断项目费',金额,0)) As 临床诊断项目费,
Sum(decode(项目,'非手术治疗项目费',金额,0)) As 非手术治疗项目费,
Sum(decode(项目,'临床物理治疗费',金额,0)) As 临床物理治疗费,
Sum(decode(项目,'手术治疗费',金额,0))+Sum(decode(项目,'麻醉费',金额,0))+Sum(decode(项目,'手术费',金额,0)) As 手术治疗费,
Sum(decode(项目,'麻醉费',金额,0)) As 麻醉费,
Sum(decode(项目,'手术费',金额,0)) As 手术费,
Sum(decode(项目,'康复费',金额,0)) As 康复费,
--Sum(decode(项目,'中医治疗费',金额,0)) As 中医治疗费,
Sum(decode(项目,'中医治疗',金额,0)) As 中医治疗,
Sum(decode(项目,'中医诊断',金额,0)) As 中医诊断,
Sum(decode(项目,'中医外治',金额,0)) As 中医外治,
Sum(decode(项目,'中医推拿治疗',金额,0)) As 中医推拿治疗,
Sum(decode(项目,'中医特殊治疗',金额,0)) As 中医特殊治疗,
Sum(decode(项目,'中医其他',金额,0)) As 中医其他,
Sum(decode(项目,'中医骨伤',金额,0)) As 中医骨伤,
Sum(decode(项目,'中医肛肠治疗',金额,0)) As 中医肛肠治疗,
Sum(decode(项目,'中药特殊调配加工',金额,0)) As 中药特殊调配加工,
Sum(decode(项目,'针刺与灸法',金额,0)) As 针刺与灸法,
Sum(decode(项目,'辨证施膳',金额,0)) As 辨证施膳,
Sum(decode(项目,'西药费',金额,0))+Sum(decode(项目,'抗菌药物费用',金额,0)) As 西药总费,
Sum(decode(项目,'西药费',金额,0)) As 西药费,
Sum(decode(项目,'抗菌药物费用',金额,0)) As 抗菌药物费用,
Sum(decode(项目,'中成药费',金额,0)) As 中成药费,
Sum(decode(项目,'中草药费',金额,0)) As 中草药费,
Sum(decode(项目,'配方颗粒费',金额,0)) As 配方颗粒费,
Sum(decode(项目,'血费',金额,0)) As 血费,
Sum(decode(项目,'白蛋白类制品费',金额,0)) As 白蛋白类制品费,
Sum(decode(项目,'球蛋白类制品费',金额,0)) As 球蛋白类制品费,
Sum(decode(项目,'凝血因子类制品费',金额,0)) As 凝血因子类制品费,
Sum(decode(项目,'细胞因子类制品费',金额,0)) As 细胞因子类制品费,
regexp_replace(TO_CHAR(Sum(decode(项目,'检查用一次性医用材料费',金额,0)),'fm999990.99999'),'\.$') As 检查用材料费,
regexp_replace(TO_CHAR(Sum(decode(项目,'治疗用一次性医用材料费',金额,'材料费',金额,null)),'fm999990.99999'),'\.$') As 治疗用材料费,
--regexp_replace(TO_CHAR(单次用量,'fm999990.99999'),'\.$')
regexp_replace(TO_CHAR(Sum(decode(项目,'手术用一次性医用材料费',金额,0)),'fm999990.99999'),'\.$') As 手术用材料费,
Ltrim(regexp_replace(to_char(Sum(decode(项目,'其他费',金额,0)),'fm999990.99999'),'\.$')) As 其他费
From(
Select  a.病人id,a.主页id,sum(a.实收金额) As 金额,b.病案费目 As 项目
from 住院费用记录 A,收费项目目录 B,病案主页  c
Where a.记录状态<>0 And a.收费细目id=b.Id
-- and 
--a.主页id=/*B1*/1/*E1*/ And a.病人id=/*B0*/283456/*E0*/
and  a.病人id=c.病人id
and a.主页id=c.主页id
and c.出院日期  between /*B0*/TO_DATE('2023-01-01 00:00:00','YYYY-MM-DD HH24:MI:SS')/*E0*/  and /*B1*/TO_DATE('2023-12-31 23:59:59','YYYY-MM-DD HH24:MI:SS')/*E1*/
and c.出院日期 is  not  null
Group By b.病案费目 ,a.病人id,a.主页id
)
group  by 病人id,主页id
)
group by 病人id,主页id

）

where  round(中药治疗费/decode(总金额,0,1,总金额)*100,2)>=60
）

--select  * from  病案主页  where  住院号=119763  1578