抢救记录6小时内是否完成明细（web版）

Select m.*,
       n.病历模板名称 病历名称,
       n.时间,
       Case When (n.时间 - m.开嘱时间) * 24 < 6 Then '是' Else '否' End "是否6小时内完成"
  From (Select a.病人id,
               a.主页id,
               (Select x.名称 From 部门表@To_His x Where x.Id = b.病人科室id) 科室,
               a.姓名,
               a.住院号,
               b.医嘱内容,
               b.开嘱时间,
               Row_Number() Over(Partition By b.病人id, b.主页id Order By b.开嘱时间) 序号
          From 病案主页@To_His a, 病人医嘱记录@To_His b
         Where a.病人id = b.病人id
           And a.主页id = b.主页id
           And b.医嘱状态 Not In (-1, 4)
           And b.医嘱内容 In ('小抢救', '大抢救')
           And a.出院日期 Between
               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*/
        ) m,
       (Select a.Dept_Id       科室id,
               a.Dept_Name     科室名称,
               c.Pat_Id        病人id,
               c.Visit_Id      就诊id,
               b.Template_Name 病历模板名称,
               a.Status        状态,
               a.Creator       创建人,
               a.create_time 创建时间,
               to_date(replace(To_Char(d.Value),'T',' '),'yyyy-mm-dd hh24:mi:ss') 时间,
               Row_Number() Over(Partition By c.Pat_Id, c.Visit_Id Order By to_date(replace(To_Char(d.Value),'T',' '),'yyyy-mm-dd hh24:mi:ss') asc) 序号
          From Zlemr.Medical_Rec          a, 
               Zlemr.Mr_Template          b,
               Baseconfig.Pat_Visit_Info  c,
               Zlemr.Medical_Rec_Variable d,
               病案主页@To_His            e
         Where a.Template_Id = b.Template_Id
           And a.Pat_Visit_Info_Id = c.Pat_Visit_Info_Id
           And a.Mr_Id = d.Mr_Id
           And c.Pat_Id = e.病人id
           And c.Visit_Id = e.主页id
           and a.Status<>-1
           And d.Variable_Id = 'e11641b3-e29d-40d4-9eb0-c626a70dc18b'
           And b.Template_Name Like '%抢救记录%'
           And e.出院日期 Between
               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*/
        ) n
 Where m.病人id = n.病人id(+)
   And m.主页id = n.就诊id(+)
   And m.序号 = n.序号(+)
 Order By m.病人id, m.主页id, m.序号