念白443-优快云博客

原创患者电子病历明细(智能病历)

Extractvalue(b.detail, '/root/more_info/element[@title="主页ID"]') 主页id,e.last_edittime 最后修改时间,e.complete_time 完成时间。e.last_editor 最后修改医生,e.subdoc_title 子文档名,c.creat_time 创建时间,a.Code as 病人id,c.creator 创建医生,and a.Kind = '病人ID'b.title 活动名称,c.title 文档标题,

2025-03-27 08:36:30 295

原创非计划31天内再入院

(select x.诊断描述 from 病人诊断记录 x where x.病人id=a.病人id and x.主页id=a.主页id and x.记录来源=3 and x.诊断类型=2 and x.诊断次序=1 and rownum=1) 诊断,a.入院日期再次入院日期,max(case when c.信息名='再入院计划天数'and a.主页id - 1 = a1.主页id。where a.病人id = a1.病人id。and a1.病人id=c.病人id。and a1.主页id=c.主页id。

2024-12-25 15:52:29 451

原创 Create Session——进入数据库需要的最小权限。

当一个员工被一个公司录用，要想进入公司通常你还需要得到授权，授权可能是一张ID卡或是一个工作证，当然在没有得到充分的信任之前，你能得到的权限可能还非常有限，在不断的工作和努力之后，你的权限可能会逐步提高，你可能可以翻阅公司的机密档案，还可能被授权打开公司的保险柜，然后你就可以……Ok，到这里打住，如果你不是一个间谍。数据库的用户，情形和此类似，用户被创建并不意味着你就可以进入公司，在进入公司前你可能需要得到一些授权，在数据库中，这个权限是Create Session，这是进入数据库需要的最小权限。

2024-12-25 11:22:17 627

原创智能病历xml提取

-EXTRACTVALUE(x.Content, '//zlxml//document//subdoc[@antetypeid="F819E70B04F241EAAD11EB6DE8E1D55B"]//element[@iid="57EB4E29F07F4236BB28FA71DF752999"]/text()') 手术者,JOIN 病人变动记录@hisinterface c ON a.病人id = c.病人id AND a.主页id = c.主页id。c.id || '' 变动id,

2024-11-12 15:48:54 653

原创每天住院人数

and nvl(A.出院日期,sysdate)>to_date(C.开始日期,'YYYY-MM-DD')and A.入院日期<to_date(C.结束日期,'YYYY-MM-DD')select C.开始日期,count(*) as 人次 from 病案主页 A,'yyyy-mm-dd') as 开始日期,'yyyy-mm-dd') as 结束日期。group by C.开始日期。order by C.开始日期。where A.主页ID>0。

2024-10-17 14:09:00 547

原创医保问题合集

And A.开始日期 >= To_Date('2023-09-01 00:00:00','YYYY-MM-DD HH24:MI:SS') And A.结束日期<= To_Date('2023-09-30 23:59:59','YYYY-MM-DD HH24:MI:SS')--备份删除。多次结算时可能有的住院已经进行医保登记，可以在下方看下那几次医保已经登记，修改完病人信息可直接结算无需重复登记，在登记，登记时如果提示病人再院重复的话，把前台就诊登记信息撤销，会提示撤销成功，再次登记，结算。

2024-10-17 09:17:12 1212

原创人员账号所属权限模块

from (select distinct 系统, 序号, 角色,功能 from zltools.zlrolegrant) g,substr(t.角色, 4, 20) as 角色,t.标题, t.说明,t.功能。(select g.角色, h.序号, h.标题, h.说明, h.系统,G.功能。and e.grantee = d.用户名。B.编号 as 人员编号,and a.id = c.部门id。and b.id = c.人员id。and b.id = d.人员id。and f.role = t.角色。

2024-09-29 10:03:48 406

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

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) 序号。to_date(replace(To_Char(d.Value),'T',' '),'yyyy-mm-dd hh24:mi:ss') 记录时间,And b.医嘱内容 In ('小抢救', '大抢救')a.create_time 创建时间,

2024-08-28 10:58:22 567 1

原创 web病历内容

To_Char(d.Section_Content) 段落内容。b.Template_Name 病历模板名称,d.Section_Name 段落名称,a.Create_Time 创建时间,a.Dept_Name 科室名称,c.Visit_Id 就诊id,a.Order_Id 医嘱id,Select a.Dept_Id 科室id,a.Is_Lock 是否锁定,c.Pat_Id 病人id,a.Creator 创建人,a.Cmpltr 完成人,a.Status 状态,

2024-08-27 09:12:56 249

原创病人体检相关费用

where a.病人id = b.病人id and a.病人id = c.病人id and a.任务id = c.任务id and Z.收费项目id = Y.ID and c.清单id = z.清单id and c.任务id =z.任务id。select to_char(a.报到时间,'yyyy-mm-dd') as 报到时间,a.姓名,a.性别,a.年龄,b.健康号,l.名称,sum(nvl(Decode(Y.是否变价,1,'时价',Z.基本价格),0)) as 标准价格,

2024-08-21 17:33:03 286

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

(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,From 病案主页 a1, 电子病历记录 b, 电子病历内容 c, 电子病历内容 C1 Where a1.病人id = b.病人id And a1.主页id = b.主页id。

2024-08-21 17:31:21 416

原创 WEB病历入院记录内容相关

e.住院号 || '_' || e.主页id as hisid,and c.template_name like '%入院记录%'病案主页@to_his e,and d.visit_id = e.主页id。and d.pat_id = e.病人id。

2024-08-21 17:29:24 507

原创按天统计医师工作量

(Case When a.开单人 In(Select i1.姓名 From 人员性质说明 i,人员表 i1 Where i.人员Id=i1.Id And i.人员性质='医生') Then a.开单人 Else a.执行人 End) 姓名,Group By (Case When a.开单人 In(Select i1.姓名 From 人员性质说明 i,人员表 i1 Where i.人员Id=i1.Id And i.人员性质='医生') Then a.开单人 Else a.执行人 End),

2024-08-21 17:28:27 556

原创门诊患者病历

and c.登记时间 between /*B0*/TO_DATE('2024-08-08 00:00:00','YYYY-MM-DD HH24:MI:SS')/*E0*/ and /*B1*/TO_DATE('2024-08-08 23:59:59','YYYY-MM-DD HH24:MI:SS')/*E1*/d.性别,d.年龄,c.门诊号,c.姓名,d.身份证号,c.登记时间,decode(d.家庭电话,null,d.手机号,d.家庭电话) as 手机号,d.病人类型,d.家庭地址,

2024-08-08 09:53:43 567

原创银联医保电子凭证缴款患者明细

from (select 病人id, 结算方式, 冲预交, 收款时间, 操作员姓名。Group by a.操作员姓名, '门诊' || A.结算方式, a.病人id, a.收款时间。(select 姓名 from 病人信息 x where x.病人id = a.病人id) 姓名,group by 结算方式, 收款时间, 操作员姓名, 病人id, 收款时间。where 记录性质 in (3, 4, 5)sum(冲预交) as 冲预交,having Sum(Nvl(A.冲预交, 0)) <> 0。

2024-08-08 09:50:54 423

原创新版pacs超声科工作量

select c.序号,2 排序, a.登记人, '小计：'标本部位, null 检查方法, sum(a.次数) As 次数, b.检查费 As 单价, sum(a.次数) * b.检查费 As 总额。select c.序号,1 排序, a.登记人, a.标本部位, a.检查方法, sum(a.次数) As 次数, b.检查费 As 单价, sum(a.次数) * b.检查费 As 总额。Order By b.f_stu_char1005, c.诊疗项目id, c.标本部位, c.检查方法) a,

2024-08-05 14:40:53 489

原创新版pacs 放射检查结果

to_date(b.f_stu_date || ' ' || b.f_stu_time, 'yyyy-mm-dd hh24:mi:ss') 检查时间,select to_char(影像学所见) 影像学所见 from 放射检查结果。a.f_rpt_diagnosis 影像学诊断。and d.f_pat_no = h.病人Id||''a.f_rpt_finding 影像学所见,select c.f_out_hosp_no 门诊号,c.f_psource_id 对象来源,b.f_stu_place 名称,

2024-07-25 14:50:33 453

原创 31天内再住院

select 出院科室id, count(distinct 病人id || 主页id) "31天非预期再入院"group by t.病人id, t.主页id, t.出院科室id)from (select t.病人id, t.主页id, t.出院科室id。and t.入院日期 - t1.出院日期 < 31。and t.出院日期 between /*B0*/and t.主页id = t1.主页id + 1。where t.病人id = t1.病人id。from 病案主页 t, 病案主页 t1。

2024-07-17 11:27:20 641

原创病案主页从表签名跟踪

grant select, insert, update, delete,references,alter,index on 病案主页从表签名跟踪 to PUBLIC;(:new.病人id, :new.主页id, :new.信息名, :new.信息值, sysdate);create or replace trigger 病案主页从表签名跟踪。insert into 病案主页从表签名跟踪。create table 病案主页从表签名跟踪。信息名 VARCHAR2(20),主页id NUMBER(5),

2024-07-08 09:00:04 390

原创传染病报卡内容——丙型

and to_date(t.创建时间, 'yyyy-mm-dd hh24:mi:ss') > sysdate - 30。a.casetypequality 病例分类,a.hcvrna "HCR_RNA定量"from zl_sdmb.t_报卡记录 t, c1_infectiousv1_6 a。and a.diseasesname in ( '(2033)丙型')and t.卡片种类 = '传染病报告卡V1.6'select a.morbiditdate 发病日期,a.deathdate 死亡日期,

2024-06-20 15:17:53 419

原创传染病报卡内容——梅毒，艾滋病

and a.diseasesname in ( '(2231)梅毒I期','(2232)梅毒II期', '(2233)梅毒III期')a.province||a.city||a.county||a.street||a.committee 户籍地址,and to_date(t.创建时间, 'yyyy-mm-dd hh24:mi:ss') > sysdate - 30。a.nucleiccheckdate "确认(替代策略)检测阳性日期",a.nucleiccheckorg "确认(替代策略)检测阳性机构",

2024-06-20 15:15:48 711

原创导航台运营状态明细

(Select a.Prev_Exec_Start, a.Username, Terminal, c.姓名。From sys.gv_$session A, 上机人员表 B, 人员表 C。Where a.Username = b.用户名。b.prev_exec_start 访问时间,b.username 访问用户,And b.人员id = c.Id。where a.工作站 = b.TERMINAL(+)Select a.部门,

2024-06-17 11:58:17 342

原创所有报表情况查询明细

Select a.Id, b.组Id, a.编号, a.名称, a.说明, a.程序id, a.修改时间, a.发布时间, a.系统, a.最后执行时间,a.执行人员最后执行人, zlSpellCode(a.名称) 简码, d.其他数据连接, a.是否停用停用,a.报表运行日志运行日志记录, Decode(a.报表运行日志, 1, '记录', '不记录') 运行日志。Decode(Nvl(A.票据, 0), 1, '票据', '报表') 种类,Where D1.数据连接编号 = D2.编号。

2024-06-17 11:55:12 398

原创总费用大于20万患者详细信息

sum(decode(c.病案费目,'病理诊断费',a.实收金额,'实验室诊断费',a.实收金额,'影像学诊断费',a.实收金额,'临床诊断项目费',a.实收金额))/sum(a.实收金额) 诊断费占比,sum(decode(c.病案费目,'病理诊断费',a.实收金额,'实验室诊断费',a.实收金额,'影像学诊断费',a.实收金额,'临床诊断项目费',a.实收金额)) 诊断费,sum(decode(c.病案费目,'西药费',a.实收金额,'中成药费',a.实收金额,'中草药费',a.实收金额)) 药费,

2024-06-14 16:50:43 343

原创基本药物采购使用

select x.药品id from 药品规格扩展信息 x where x.项目='液体性质' and x.内容='溶媒' )select x.药品id from 药品规格扩展信息 x where x.项目='液体性质' and x.内容='溶媒' )select x.药品id from 药品规格扩展信息 x where x.项目='液体性质' and x.内容='溶媒' )and t.收费类别 in ('5','6','7')and t.收费类别 in ('5','6','7')

2024-06-11 08:46:49 364

原创门诊配方明细统计

Sum(Decode(Instr('567', A.收费类别), 0, 0, A.应收金额)) as 药品应收,Sum(Decode(Instr('567', A.收费类别), 0, 0, A.实收金额)) as 药品实收。From 门诊费用记录 A, 病人医嘱发送 B, 病人医嘱记录 C,诊疗项目目录 D。Select C.开嘱时间 as 开单时间,Sum(A.应收金额) as 应收金额,Sum(A.实收金额) as 实收金额,And B.医嘱ID = C.ID。and C.配方ID = D.ID。

2024-06-07 16:27:32 281

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

regexp_replace(TO_CHAR(Sum(decode(项目,'治疗用一次性医用材料费',金额,'材料费',金额,null)),'fm999990.99999'),'\.$') As 治疗用材料费,Sum(decode(项目,'手术治疗费',金额,0))+Sum(decode(项目,'麻醉费',金额,0))+Sum(decode(项目,'手术费',金额,0)) As 手术治疗费,Sum(decode(项目,'非手术治疗项目费',金额,0)) As 非手术治疗项目费,

2024-06-06 16:51:28 627

原创门诊开髓引流术与局部浸润麻醉重复收费

select distinct '局部浸润麻醉' 项目, a.id,a.门诊号,a.姓名,a.年龄,t.开单部门id,t.开单人 ,t.数次,t.实收金额 from 门诊费用记录 t ,病人挂号记录 a where t.挂号id=a.id。select distinct '开髓引流术' 项目, a.id,a.门诊号,a.姓名,a.年龄,t.开单部门id,t.开单人,t.数次,t.实收金额 from 门诊费用记录 t ,病人挂号记录 a where t.挂号id=a.id。n.开单人开单人1,

2024-06-06 16:50:07 455

原创门诊住院处方

SELECT A.NO,A.单据,A.序号,A.零售价单价,MAX(A.记录状态) 记录状态,SUM(NVL(A.付数,1)*A.实际数量) 已发数量。SELECT A.NO,A.单据,A.序号,A.零售价单价,MAX(A.记录状态) 记录状态,SUM(NVL(A.付数,1)*A.实际数量) 已发数量。SELECT B.库房ID,B.审核人,COUNT(DISTINCT B.NO) 处方单数,COUNT(B.ID) 处方明细数,SUM(A.单价*A.已发数量) 处方单金额,

2024-06-06 16:48:42 483

原创中药应用及治疗情况

max(case when t.收费细目id in (select u.id from 收费项目目录 u where u.病案费目='中医治疗费') and t.实收金额>0 then 1 end) 中医非药物治疗,round((nvl(p.中医非药物疗法,0)/o.出院人数*100),2)||'%' 中医非药物疗法使用率,round((nvl(p.康复治疗例数,0)/o.出院人数*100),2)||'%' 康复治疗使用率,nvl(p.中医非药物疗法,0) 中医非药物疗法,

2024-06-06 16:48:02 422

原创床位状况使用情况

And (c.当前病区id = b.病区id Or c.婴儿病区id = b.病区id Or b.病人ID is NULL)trunc(DECODE(C.入科时间, NULL, C.入院日期, C.入科时间))),trunc(DECODE(C.入科时间, NULL, C.入院日期, C.入科时间)) as 住院天数。Order By b.顺序号, D.编码, LPad(b.床号, 10, ' ')LPad(b.房间号, 10, ' ') 房间号,And b.病人id = c.病人id(+)

2024-06-06 16:47:02 256

原创出院患者占用总床日数、普通床位、ICU床位、专科ICU床位使用率

from table(ZL_WBY_Pak_Get病人住院天数.Zl_Wby_Fun病人住院天数( /*B0*/TO_DATE('2024-03-01 00:00:00','YYYY-MM-DD HH24:MI:SS') /*E0*/, /*B1*/ TO_DATE('2024-03-31 23:59:59','YYYY-MM-DD HH24:MI:SS') /*E1*/))(select 当前病区id,nvl(sum(decode(to_date(出院日期, 'yyyy-mm-dd') -

2024-06-06 16:45:22 1563

原创出院患者信息

from 病案主页 t, 病人信息 a, 部门表 b,病人结帐记录 c,平台结算信息 n,(select x.病人id,x.主页id,y.名称 ,x.出院情况 from 病人诊断记录 x ,疾病编码目录 y where x.疾病id=y.id and x.记录来源=3 and x.诊断次序=1 and x.编码序号=1 and x.诊断类型 in(3,13)) x。decode（n.险种类型,310,'职工',390,'居民','自费'）患者类别,and t.病人id=c.病人id(+)

2024-06-06 16:43:58 415

原创影像检查报告记录

and (e.接收日期 > sysdate - 3 or d.门诊号 = '' or n.姓名 = '' or c.身份证号 = '')and (e.接收日期 > sysdate - 3 or d.住院号 = '' or n.姓名 = '' or c.身份证号 = '')and n.病人id = c.病人id。and m.医嘱id = e.医嘱id。and n.病人id = c.病人id。and n.病人id = d.病人id。and m.医嘱id = n.id。and m.医嘱id = n.id。

2024-06-06 13:04:04 548

原创人工关节类医用耗材采购情况明细

(select a.注册证号 from 材料特性 a where a.材料id=c.收费细目ID) 注册证号,(select 名称 from 收费项目目录 x where x.id = c.收费细目ID) 名称,(select t.病人id, t.主页id, t.手术日期, a.编码,t.主刀医师,r.执业证号。substr(d.规格,0,instr(d.规格,'┆')-1) 规格,where t.诊疗项目id = a.id(+)where c.病人ID = a.病人id(+)a.身份证号患者证件号码,

2024-06-06 13:02:33 258

检验项目阳性汇总表zrui

空空如也