工作站写报告时导入临床诊断和病史

博主：猫不是猫
发布时间：2023 年 05 月 30 日
112 次浏览
暂无评论
1093字数
分类：放射超声病理

> 这是一个6级评级的需求点，应该能混过去

+ 在Rpt_InitPropList.vbs里加入,放在前面

```vbnet
Rpt.PropListAddItem "button","导入临床诊断","bzms",GetBLMS()
Rpt.PropListAddItem "button","导入病史","bzms",GetBS()
```

这段放在后面

~~~vbnet
Function GetBLMS()
    Checkserialnum = Rpt.Data.GetNamedValue("CHECKSERIALNUM")
    sql="select prediagnose from studyinfo where CHECKSERIALNUM='"&Checkserialnum&"' "
    Set Conn=Rpt.GetDBConn
	Set rs = Conn.Execute(sql)
	While Not rs.eof 
	   blms=rs("prediagnose")
	   If Len(blms)> 0 Then 
	      GetBLMS=GetBLMS&blms
	   End If 
	   rs.MoveNext
	Wend 
End Function

Function GetBS()
    Checkserialnum = Rpt.Data.GetNamedValue("CHECKSERIALNUM")
    sql="select ABSTRACTHISTORY from studyinfo where CHECKSERIALNUM='"&Checkserialnum&"' "
    Set Conn=Rpt.GetDBConn
	Set rs = Conn.Execute(sql)
	While Not rs.eof 
	   blms=rs("ABSTRACTHISTORY")
	   If Len(blms)> 0 Then 
	      GetBS=GetBS&blms
	   End If 
	   rs.MoveNext
	Wend 
End Function 
~~~

- 导入检验、心电结果啥的 同理，用唯一号去查视图，然后赋值给变量就行

> 下面是效果图

![](https://image.cnotcat.cn/blogimg/20230530132911.png)

最后修改：2023 年 05 月 30 日

如果觉得我的文章对你有用，请随意赞赏

发表评论取消回复
使用cookie技术保留您的个人信息以便您下次快速评论，继续评论表示您已同意该条款

评论 *

私密评论

名称 *

🎲

邮箱 *

地址

工作站写报告时导入临床诊断和病史

发表评论取消回复
使用cookie技术保留您的个人信息以便您下次快速评论，继续评论表示您已同意该条款

快让你的Typecho冲上PHP7.4

百度云下载不限速：Pandowload第三方修改版

301重定向：让顶级域名跳转到二级域名

IntelliJ IDEA 2020.2.2官网最新版激活到2089年教程（mac+win通用）

Typecho开启伪静态-去掉烦人的archives

诊断工作站阴阳性提醒框优化

JAVA笔记：循环嵌套

分支5的DisPlay5.5浏览图像后卡死问题解决

注册外服英雄联盟（RIOT）账号

新版排队叫号去掉顶部的大色块

工作站写报告时导入临床诊断和病史

发表评论 取消回复 使用cookie技术保留您的个人信息以便您下次快速评论，继续评论表示您已同意该条款

工作站写报告时导入临床诊断和病史

发表评论取消回复
使用cookie技术保留您的个人信息以便您下次快速评论，继续评论表示您已同意该条款