EMR_VIEW PB调用方式

1. COM组件的调用

该接口采用.net生成COM组件Tj_Emr_ViewInterface.dll（在EMR3.7程序包中），

组件的注册：regasm  Tj_Emr_ViewInterface.dll /tlb: Tj_Emr_ViewInterface.tlb /codebase  

类名："Tj_Emr_ViewInterface.TjViewInterface"

PB对象实例化方法：

OleObject lole_interface

lole_interface = Create OLEObject

if lole_interface.ConnectToNewObject("Tj_Emr_ViewInterface.TjViewInterface") < 0 then  //注意这里的TjViewInterface 要跟注册表里名字一致。

Destroy lole_interface

messageBox("提示", "启动病历接口打开失败")

return

end if

 

² 函数名：EmrFileView

² 参数：

String  patSource病人来源（住院2，门诊3，全部 （包括门诊病历和住院病历） 4 ）

String  patId病人标识（病人ID）

String  visitId病人住院序号（门诊病人该项为0）

² 返回值：

Integer 1 成功 -1 失败

² 举例：

EmrFileView (string patSource, string patId, string visitId);