泰融影像管家(医学影像工作站)用户说明文档

2 of 2 in the series: 影像管家

  • 泰融影像管理(医学影像工作站web版)-日志

    本文记录了泰融影像管理在开发过程中的点滴细节,为项目完成后提共部份文档基础。

  • 泰融影像管家(医学影像工作站)用户说明文档

    本文主要为用户提供影像管理系列操作说明,让用户能在看完本文档后,能快速的使用泰融影像管理,能有一个更好的医学影像工作站使用体验。

时间检查类型选择错误导至编辑报告错误

登记完成后系统没能打开编辑报告界面,而是报内址地址错误的解决办法

问题:

系统在登记完成后,返回主界面时,正常情况下应当是自动打开报告编辑页面,进行报告编辑。但出问题时,会弹出如下图所示界面错语提示,使报告完法工作。

 

问题出现原因及解决办法:

1.没有通过刷新检索到目标病人后,在左侧列表中双击打开,而时在左侧列表为空的情况下,直接点编辑,那么一定会出现上述错误。

解决办法:刷新找到左侧病人后,在要打开的病人上双击,就可以了,不会再报错。

2.点登记按钮后,完成登记返回时报错,这种情况,多是因为检索条件中的时间类型没有选择成登记日期,系统从登记界面返回的原理是:根据当天的日期,按时间类型中选择的时间字段,来找到当前登记的新病人后,打开报告,而当我们时间类型完成如报告日期时,那么我们查询不到刚登记的病人,就形成了左侧病人列表为空的情况,这时程序又自动点双击打开报告,那么就会报错了。所以,当出现这种情况时,立即去看时间类型,若其它检索条件是不是正确的,修正后即可争决问题。

正确设置时间类型,避免报错

超声工作站单机版2019更新补丁

采集图像报错与打印预览报错及字体工具体位置不正确更新修正

 

更新日期

2019-05-11

修正姓名引用内容建新病例的BUG

 

2019-05324
更新内容:
修改视频裁剪函数,使之不会因为在windows10下,采图出错!但采图仍要有频率限制不可,如狂按F4采图键连续极端快速采图!
修正字体调节工具栏在首页面占独占一行的问题。
修正打印预览时因内存设置超限报错的问题。
更新方法:
下载文件后,将下载到的MedSysUS.exe复制到c:\program files\stusdata\release目录,替换原文件即可!

重要说明

此次更新2019-05-11更新,仅对部份客户的版本更新,更新前请咨询工程师,
如无必要,请直接用安装包中的更新文件即可正常工作。而使用本更新,数据库字段histitemid的类型需手工更改!

软件安装教程

1.软件安装调试记录2019-11-10 提取码:r46g
2.软件安装记录001  提取码:i2cl
3.常见问题的解决办法      提取码:r3p6

 

超声打印

procedure Trepform.frxptBeforePrint(Sender: TfrxReportComponent);
var filepath: string;
  
  rptformats: string;
 
 
  chname, fname: string;
  docharset, dofontchange: Boolean;
  charsetindex, I: Integer;
  picconter: Integer;
begin
  ExportFileName := DateTimeToStr(dm.Mqry.fieldbyname('baogaoriqi').AsDateTime) + dm.mqryname.AsString;
  picconter := 0; {默认的打印图片为0}
 
 
//   sHostpitalLogo,
//   sHostpitalName,
 if frxpt.FindObject('caInfo') <> nil then
    (frxpt.FindObject('caInfo') as TfrxMemoView).Memo.Text := s_CaInfo;
  if frxpt.FindObject('hostname') <> nil then
    (frxpt.FindObject('hostname') as TfrxMemoView).Memo.Text := sHostpitalName;
   if frxpt.FindObject('hostname1') <> nil then
    (frxpt.FindObject('hostname1') as TfrxMemoView).Memo.Text := sHostpitalName;
  if frxpt.FindObject('logo') <> nil then
  begin
    if FileExists(sHostpitalLogo) then
      (frxpt.FindObject('logo') as TfrxPictureView).Picture.LoadFromFile(sHostpitalLogo);
  end;
   if frxpt.FindObject('logo1') <> nil then
  begin
    if FileExists(sHostpitalLogo) then
      (frxpt.FindObject('logo1') as TfrxPictureView).Picture.LoadFromFile(sHostpitalLogo);
  end;
  if ((frxpt.FindObject('reportTitle') as TfrxMemoView) <> nil) then
    (frxpt.FindObject('reportTitle') as TfrxMemoView).Text := mainunit.P_reportTitle;
      {这两行的决定超声所见和超声提示是否支持多行显示}
 
 
  chname := mySysParms.getElementTextAttribute('/config/Print', 'charset', 'font_DEFAULT_CHARSET');
  fname :=  mySysParms.getElementTextAttribute('/config/Print', 'font_fontname', '宋体');
  dofontchange :=mySysParms.getElementBooleanAttribute('/config/Print','font_fontChange',True);
  docharset:= mySysParms.getElementBooleanAttribute('/config/Print','font_used', True);
 
  IdentToCharset(chname, charsetindex);
  for i := 0 to frxpt.ComponentCount - 1 do
  begin
    if TComponent(frxpt.Components[i]) is TfrxRichView then
      (TComponent(frxpt.Components[i]) as TfrxRichView).Wysiwyg := mainunit.Print_Wysiwyg;
    if TComponent(frxpt.Components[i]) is TfrxMemoView then
    begin
      (TComponent(frxpt.Components[i]) as TfrxMemoView).Wysiwyg := mainunit.Print_Wysiwyg;
      if docharset then
      begin
        (TComponent(frxpt.Components[i]) as TfrxMemoView).font.Charset := charsetindex;
        if (TComponent(frxpt.Components[i]) as TfrxMemoView).Name <> 'hostname' then
          (TComponent(frxpt.Components[i]) as TfrxMemoView).font.name := fname;
      end;
    end;
  end;
 
 
 
  filepath :=SPath.LocalPath+ dm.mqryimagepath.AsString;
  filepath:=StringReplace(filepath,'\\','\',[rfReplaceAll]) ;
  Exportpath:=filepath;
  if FileExists(filepath + '\rpt1.jpg') then
    picconter := picconter + 1;
  if FileExists(filepath + '\rpt2.jpg') then
    picconter := picconter + 1;
  if FileExists(filepath + '\rpt3.jpg') then
    picconter := picconter + 1;
  if FileExists(filepath + '\rpt4.jpg') then
    picconter := picconter + 1;
  if FileExists(filepath + '\rpt5.jpg') then
    picconter := picconter + 1;
  if FileExists(filepath + '\rpt6.jpg') then
    picconter := picconter + 1;
 
  rptformats := dm.mqryrep_format.AsString;
  rptformats := StringReplace(rptformats, 'D:\stusdata\reportformat\', '', [rfReplaceAll]);
  if frxpt.FindObject('ReportTitle1') <> nil then
    (frxpt.FindObject('ReportTitle1') as TfrxReportTitle).Tag := picconter;
  if FileExists(filepath + '\rpt1.jpg') then
  begin
    if frxpt.FindObject('Picture1') <> nil then
      (frxpt.FindObject('Picture1') as TfrxPictureView).Picture.LoadFromFile(filepath + '\rpt1.jpg');
  end;
  if FileExists(filepath + '\rpt2.jpg') then
  begin
    if frxpt.FindObject('Picture2') <> nil then
      (frxpt.FindObject('Picture2') as TfrxPictureView).Picture.LoadFromFile(filepath + '\rpt2.jpg');
  end;
  if FileExists(filepath + '\rpt3.jpg') then
  begin
    if frxpt.FindObject('Picture3') <> nil then
      (frxpt.FindObject('Picture3') as TfrxPictureView).Picture.LoadFromFile(filepath + '\rpt3.jpg');
  end;
  if FileExists(filepath + '\rpt4.jpg') then
  begin
    if frxpt.FindObject('Picture4') <> nil then
      (frxpt.FindObject('Picture4') as TfrxPictureView).Picture.LoadFromFile(filepath + '\rpt4.jpg');
  end;
  if FileExists(filepath + '\rpt5.jpg') then
  begin
    if frxpt.FindObject('Picture5') <> nil then
      (frxpt.FindObject('Picture5') as TfrxPictureView).Picture.LoadFromFile(filepath + '\rpt5.jpg');
  end;
  if FileExists(filepath + '\rpt6.jpg') then
  begin
    if frxpt.FindObject('Picture6') <> nil then
      (frxpt.FindObject('Picture6') as TfrxPictureView).Picture.LoadFromFile(filepath + '\rpt6.jpg');
  end;
 if  frxpt.FindObject('dbjinchasuojian')<> nil then
    (frxpt.FindObject('dbjinchasuojian') as TfrxMemoView).Font.Size:=i_ReportSJTS_FontSize;
 if  frxpt.FindObject('dbjianchajielun')<> nil then
    (frxpt.FindObject('dbjianchajielun') as TfrxMemoView).Font.Size:=i_ReportSJTS_FontSize;
  if  frxpt.FindObject('Memo44')<> nil then
    (frxpt.FindObject('Memo44') as TfrxMemoView).Font.Size:=i_ReportSJTS_FontSize;
  if FileExists(filepath + '\CeLiang.jpg') then
  begin
    if frxpt.FindObject('Picturecl') <> nil then
      (frxpt.FindObject('Picturecl') as TfrxPictureView).Picture.LoadFromFile(filepath + '\CeLiang.jpg');
  end;
//  if frxpt.FindObject('PageFooter1')<> nil then
//     begin
//        if (frxpt.FindObject('Page1') as TfrxReportPage).PageCount>1 then
//          begin
//            (frxpt.FindObject('PageFooter1') as TfrxPageFooter).PrintOnFirstPage:=False;
//            (frxpt.FindObject('PageFooter1') as TfrxPageFooter).PrintOnLastPage:=true;
//          end
//         else
//           begin
//             (frxpt.FindObject('PageFooter1') as TfrxPageFooter).PrintOnFirstPage:=true;
//            (frxpt.FindObject('PageFooter1') as TfrxPageFooter).PrintOnLastPage:=true;
//           end;
//
//     end;
//frxpt.Engine.
end;

 

PDFCreater2虚拟打印机生成PDF到目的路径

打印前执行加载签名

  if frxpt.FindObject(‘DocQianMing’)<>nil then  //加载医生签名,在报告页面上合适的位置放置一个图片名称为DocQianMing
begin
//mainunit.Current_user
docqmpath:=ExtractFilePath(Application.ExeName)+’DocQianMing\’+mainunit.Current_user+’.jpg’;
if FileExists(docqmpath) then
(frxpt.FindObject(‘DocQianMing’) as TfrxPictureView).Picture.LoadFromFile(docqmpath);
end;

if frxpt.FindObject(‘DocQianMing’)<>nil then  //加载医生签名,在报告页面上合适的位置放置一个图片名称为DocQianMing
begin
//mainunit.Current_user
docqmpath:=ExtractFilePath(Application.ExeName)+’DocQianMing\’+mainform.DBComboBox1.Text+’.jpg’;
if FileExists(docqmpath) then
(frxpt.FindObject(‘DocQianMing’) as TfrxPictureView).Picture.LoadFromFile(docqmpath);
end;

程序中相关 配置文件

超声

 //虚拟打印机名称配置
v_pdfPrinter:=mySysParms.getElementTextAttribute(‘/config/vPrint’,’PrintName’,’PDFCrestor’)  ;

//内镜配置GWSET.INI

 v_pdfPrinter:=regini.ReadString(‘虚拟打印机’,’打印机名称’,’PDFCreator’) ;

//内镜真实的打印机配置

V_DefaultPrinter:=regini.ReadString(‘打印’,’默认的打印机’,’default’);//设置默认的打印机