- 908
- 0
- 约1.88千字
- 约 4页
- 2020-02-26 发布于陕西
- 举报
。 病案管理系统中住院号与病案号的问题处理
说明:
医院里面病案号是必须连续的,不可间断。但是住院号可以作废的,跳跃式的
解决方法:
第一步:在出入住院处有一个病人的信息维护和出入病人的信息维护。
1、入院工作—病人信息维护(zyb_brxxwh.dll/fzyb_brxxwh):
2、出院管理—出院病人的信息维护(zyb_brxxwh.dll/fzyb_brxxwh_cy):
从上面的来个图形上面我可以看出都有一个病案号的的框
所以我们以后就可以在这里将医院所需要的病案号在此进行输入。
第二步:我们已经知道了病案号,然后就是要用病案号来导入数据
所以我们就要知道,从THIS中导入到病案的数据是是用什么的?
用的是存储过程
然后我们找到首页数据导入的存储过程:首页数据导入:调用usp_ba_sjdr_syjb_4
然后我们就要对这个存储的过程进行修改:
1:sp_helptext usp_ba_sjdr_syjb_4
然后将执行后的数据全部进行复制 ,复制到一个新的查询中去,
我们首先第一步:安装ctrl+F找blhm(病历号码)。与bahm(病案号码)
2:找到之后我们blhm换成bahm,huo或者将bahm至于blhm的前面
insert into #syjbk (syxh, yydm ,bahm, zyhm, brxm, py, wb,rycs, sfzh, brxb
, csny, brnl, ryrq, cyrq, zydm, sfdm, qxdm, mzdm, gjdm, gzdw, dwdh
, dwyb, hkdz, hkdh, hkyb, lxrm, lxdh, sbkh --lxgx,
, cyks, cybq, cych, zyts
, hyzk,brxz
)
select a.syxh, @yydm,b.bah, a.blh , a.hzxm, a.py, a.wb,a.zycs, a.sfzh, a.sex
, a.birth,0, a.ryrq, case @cqcy when 1 then a.cqrq else a.cyrq end ,
b.zybm,b.csd_s, b.csd_x, b.mzbm, b.gjbm, , b.dwdh
, b.dwyb, b.lxdz, b.lxdh, b.lxyb, a.lxr--, a.lxrgx
, a.lxrdh, case a.cardtype when 2 then a.cardno else null end as sbkh
, a.ksdm, a.bqdm, a.cwdm, case datediff(dd,left(a.ryrq,8),left(a.cyrq,8)) when 0 then 1 else datediff(dd,left(a.ryrq,8),left(a.cyrq,8))end zyts
, case b.hyzk when 0 then 1 when 1 then 2 when 2 then 3 when 3 then 4 else 9 end
, case when c.pzlx in (5,12) then 1 --医保--根据在HIS中YY_YBFLK的pzlx实际情况修改/MODIFY BY LIU HONG/
when c.pzlx in (6) then 4 --公费--根据在HIS中YY_YBFLK的pzlx实际情况修改/MODIFY BY LIU HONG/
when c. bjqkdm in (1) then 7 --干保--根据在HIS中YY_YBFLK的bjqkdm实际情况修改/MODIFY BY LIU HONG/
when c.pzlx in (0) then 5 --自费--根据在HIS中YY_YBFLK的pzlx实际情况修改/MODIFY BY LIU HONG/
else 6 end --其他
第三步:改完之后,记得将create改为alter(修改的意思),然后我们执行,命令成功。
第四步:select bah,* from ZY_BRXXK(这个是‘住院病人的信息库)
您可能关注的文档
最近下载
- 2024-2025学年上海市普陀区六年级下学期数学期末试题含详解.pdf VIP
- 制造业企业员工高离职率分析.pdf VIP
- GB50461-2024:石油化工静设备安装工程施工质量验收规范.pptx VIP
- 三江A116火灾报警控制器简易操作规程.docx
- (新版)社会体育指导员理论知识考试题库(含答案).docx VIP
- DB31T 1104-2018 城市轨道交通导向标识系统设计规范.docx VIP
- 2023年浙江省军队转业干部录用考试试题.docx VIP
- 口渴了-朋友帮你.ppt VIP
- Xikong西莱克低温机控制板SHXK814用户手册.pdf
- 爱迪生牛顿大发明攻略.doc VIP
原创力文档

文档评论(0)