Loading... 为了防止以后年纪越大越记不住东西，趁着这次上线把一些上线前需要对工作站进行哪些“初始化”工作记录一下： > 1、电子申请单 -bin/config/ReqFormat.xsl  * 把这部分改成 ``` <table border="0" width="400" id="table1"> <tr> <td width="400" rowspan="2"> <p align="center"><b><font size="6">XXXXX医院</font></b></p></td> </tr> </table> ``` > 2、默认输出模板 -bin/config/Rpt_Report.ini * 放射科大多数医院使用一代模板都能满足，所以这里搜索 *DefaultEditorVersion* 把后面的**3改成1** > 3、报告界面左下角信息区域-bin/config/Rpt_InitPropList.vbs * 把不适用于现场的内容隐藏  > 4、查询列表 -bin/config/PM_ListSetting.ini * 把一些不必要的或者默认没显示出来的东西控制一下，可以到工作站上调整好，保存列设置。  > 5、高级设置的医生列表 -bin/config/PM_QueryReportDoctor.ini * 填入对应的角色ID，方便医生查询  > 6、顶部功能模块 -bin/config/PF_AppConfig.xml和-bin/config/PF_Provider.ini * 比如没有上排班的医院，把*我的任务* 隐藏掉  * PF_AppConfig.xml ``` <Application Name="MYTASK"> <Component>MyTask.dll</Component> <MaxWndCount>1</MaxWndCount> <Window Name="我的任务" Index="0"> <Monitor Index="0" RectIndex="0"/> </Window> </Application> ``` * PF_Provider.ini 把Hide=1就是隐藏 ``` [MyTask] Name=我的任务 Hide=1 ``` > 7、如果需要阴阳性功能和提醒：-bin/config/Rpt_InitPropList.vbs * 搜索SetMasculineMark 把这个*取消注释*  * 继续搜索*SetMasculineMark*，把这个函数替换成下面的 * 程序自带的脚本好像少了一行select case ifMusculine ``` Sub SetMasculineMark ifMusculine=CStr(Rpt.Data.GetNamedValue("IFMASCULINE")) select case ifMusculine '好像是少了这行 Case "1" ValueName="阴性" Case "2" ValueName="阳性" Case Else ifMusculine="0" ValueName="未确定" End Select Dim ary(2,3) ary(0,2)="阳性" ary(0,1)="阴性" ary(0,0)="未确定" ary(1,2)="2" ary(1,1)="1" ary(1,0)="0" Rpt.PropListAddItem "droplist","阳性","",ValueName,"IFMASCULINE",ifMusculine,ary End Sub ``` > 8、阴阳性提醒功能：-bin/config/Rpt_VerifyRpt.vbs * 自带的提醒函数好像也有问题..搜索*PromptIfMasculine* 把这一段都删掉  * 接着把下面的方法复制进去 ``` Function PromptIfMasculine Masculine = Rpt.Data.GetNamedValue("IFMASCULINE") If Masculine<>"1" And Masculine<>"2" Then ReturnValue=MyScript.MsgBox("请确认检查是否为阳性？是为阳性，否为阴性。",vbQuestion+vbYesNo) If CInt(ReturnValue)=vbNo Then Rpt.Data.SetNamedValue "IFMASCULINE","1" PromptIfMasculine=True Exit Function ElseIf CInt(ReturnValue)=vbYes Then Rpt.Data.SetNamedValue "IFMASCULINE","2" PromptIfMasculine=True Exit Function Else PromptIfMasculine=False Exit Function End If else PromptIfMasculine=True End If End Function ``` > 9、锁定后显示切换用户按钮 config/PF_Common.ini ~~~ini [AppSettings] ; 自动锁定时长，单位分钟 LockTime=10 ; 锁定后是否显示切换用户按钮，1 显示 0不显示 LockSwitchUser=1 ; 是否自动锁定， 1自动锁定 0不锁定 AutoLock=1 ~~~ 最后修改：2024 年 04 月 09 日 © 允许规范转载 赞 2 如果觉得我的文章对你有用，请随意赞赏