老项目%session中没有WARDID值问题
只有NURSE的医护人员进入系统才会在会话中写入病区ID,有医技人技也需要使用床位图,导致界面报错。可以使用以下方法在会话中补加上病区ID
1. 打开csp\epr.frames.csp
2. 在第一个<server>标签下面加入以下四行代码
if (0=+¥G(%session.Data("LOGON.WARDID")))&&(¥g(%session.Data("LOGON.CTLOCID"))>0){
Set wardid=¥O(^PAWARD(0,"WARD_LocationDR",%session.Data("LOGON.CTLOCID"),""))
if wardid'="" s %session.Data("LOGON.WARDID")=wardid
}