老项目%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
}

3. 测试床位图是否显示正常