lis-ris接口的通用处理.docVIP

接口通用处理的目标： 尽量兼容以前的处理方式，对已有的接口要能够通过简单配置可以继续使用。 通用处理完成后，再作其他的这类接口，不需要修改体检软件本身，只需要根据需要重新编写动态库、数据库视图，存储过程，或者单独的接口程序就可以完成接口工作。 体检软件与lis,ris的接口的主要内容： 体检软件向lis，ris提供体检人员信息和人员体检项目，根据不同情况，可能只需要提供人员基本信息即可。 Lis,ris检查结果的返回: 目前体检软件与lis,ris的接口的完成方式： 主要分为两部分： 体检人员的信息及检查向对方的传递： 对方到我方提供的视图或表中提取需要信息，我方按照要求提供。可能为数据库视图或存储过程。 我方向对方的表中插入数据，按照对方格式写入。也可能是向中间数据库写入数据。 调用对方提供的动态库，完成信息的提交。 检查结果的返回： 由对方提供表或视图，我方到其中提取。 我方提供存储过程，由对方调用，保存到体检数据库（新网pacs） 通用处理的处理方式： 结合单独的接口程序，动态链接库，数据库的视图，存储过程，触发器等，综合完成接口的功能，目标就是修改或新增接口不用修改体检软件，更高目标是不用修改程序，通过配置完成（下一步的目标，需要对接口进一步提炼才有可能完成） 采用动态链接库封装取检查数据和向对方数据库或中间数据库插入数据的操作 调用对方提供的动态库完成信息的提交的情况，在调用的地方预留调用.exe文件的接口，并在配置文件中标记被调用文件的名称。 在配置文件[Interface]下增加如下内容： ;标识是否与RIS系统连接 ConnectRIS=false ;体检向Lis提供信息的方式，值可为DLL,EXE,VIEW InfoToRisTyp=DLL ExeNameRis= RisName=BT RisCntSTring=Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=dhtj;Data Source=wxw ;标识是否与LIS系统连接 ConnectLIS=false ;体检向Lis提供信息的方式，值可为DLL,EXE,VIEW InfoToLisTyp=View ;如果InfoToLisTyp=EXE,则ExeNameLis须填写exe文件的名称。 ExeNameLis= LisName=KH ;ConnectSTring=Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ;ID=LIS;password=lis;Data Source=ORCL LisCntSTring=Provider=SQLOLEDB.1;Persist Security Info=False;User ID=lisadmin;password=qplis;Initial Catalog=lab40;Data Source=hissvr 体检软件的相应修改: Module1模块增加声明： Public gClsInterface Main 函数增加 If Dir(gstrCurrPath InterFace.dll) Then Set gClsInterface = CreateObject(interface.clsInterface) FrmMain.unload 增加 Set gClsInterface = Nothing FrmBrowser. CmdGetLis_Click增加 Call gClsInterface.getlisdata(lngCurrGUID, selfbh, CDate(strTmpTJRQ)) tvwKShi_Click GoTo ExitLab FrmBrowser. XPCommandButton1_Click(取放射数据按钮) Dim selfbh As String selfbh = Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.Row, 2) strTmpTJRQ = Me.MSHFlexGrid1.TextMatrix(Me.MSHFlexGrid1.Row, 5) Call gClsInterface.getrisdata(lngCurrGUID, selfbh, CDate(strTmpTJRQ)) tvwKShi_Click GoTo ExitLab FrmAffirmLvw. CmdAffirm_Click增加 新增加调用interface.dll 2006-8-24 If U