打开报告时如果该患者有病理结果，弹窗提醒

博主：猫不是猫
发布时间：2022 年 01 月 27 日
404 次浏览
暂无评论
1181字数
分类： PACS5.5

备份一下备份一下
<div class="tip inlineBlock info">

添加到脚本后，记得Call IFPETCTORECT
</div>

```vbnet
SUB IFPETCTORECT
CHECKSERIALNUM = Rpt.Data.GetNamedValue("CHECKSERIALNUM")
sql="select hispatienttype,INFEEPATIENTID,clinicpatientid from PATIENTINFO where checkserialnum='" & CHECKSERIALNUM & "'"
Set Conn=Rpt.GetDBConn
Set rs = Conn.Execute(sql)
hispatienttype=rs("hispatienttype")
if CInt(hispatienttype)=1 Then
clinicpatientid=rs("clinicpatientid")
sql2="select * from studyinfo s,patientinfo p where (s.devicetypeid='24' or s.devicetypeid='25') and s.studytime>sysdate-3 and p.checkserialnum=s.checkserialnum and p.clinicpatientid='" & clinicpatientid & "'"
Set rs2 = Conn.Execute(sql2)
If not rs2.eof Then
msgbox "该患者3天内存在核医学科检查！",vbOKOnly + vbExclamation,"警告"
End If
elseif CInt(hispatienttype)=2 Then
INFEEPATIENTID=rs("INFEEPATIENTID")
sql3="select * from studyinfo s,patientinfo p where (s.devicetypeid='24' or s.devicetypeid='25') and s.studytime>sysdate-3 and p.checkserialnum=s.checkserialnum and p.INFEEPATIENTID='" & INFEEPATIENTID & "'"
Set rs3 = Conn.Execute(sql3)
If not rs3.eof Then
msgbox "该患者3天内存在核医学科检查！",vbOKOnly + vbExclamation,"警告"
End If
end if
end sub
```

最后修改：2023 年 05 月 24 日

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

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

评论 *

私密评论

名称 *

🎲

邮箱 *

地址

打开报告时如果该患者有病理结果，弹窗提醒

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

快让你的Typecho冲上PHP7.4

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

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

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

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

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

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

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

分支7工作站内嵌分诊报错：得到自定义类型“-120”出错

Java第二章：变量和运算符

打开报告时如果该患者有病理结果，弹窗提醒

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

打开报告时如果该患者有病理结果，弹窗提醒

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