PASS嵌入技术文档

手册”。

3、 拷贝嵌入所必须文件（主要是警示灯图标文件，DLL相关文件安装自动实现）。

四、HIS系统是否调用PASS功能控制方案与设置

1、 在HIS系统数据库中加入“是否调用PASS系统”的数据记录，以便设置全院是否调用PASS系统功能。

例如：在HIS系统表“APP_CONFIGER_PARAMETER”中加入一是否调用PASS系统参数设置记录，具体如下：

参数名字段 PARAMETER_NAME PASS 参数值字段 PARAMETER_VALUE 1：表示调用PASS功能； 0：表示不调用PASS功能；

通过在HIS系统中运行下面SQL语句便可在HIS系统加加入PASS功能调用设置：

INSERT INTO APP_CONFIGER_PARAMETER

(PARAMETER_NAME,PARAMETER_VALUE)

Values ('PASS','1');

同样通过在HIS系统中运行下面SQL语句便可修改PASS功能调用设置：

UPDATE INTO APP_CONFIGER_PARAMETER SET PARAMETER_VALUE = 1

WHERE PARAMETER_NAME = ‘PASS’;

附：军卫一号HIS系统PASS参数设置SQL语句：

INSERT INTO COMM.APP_CONFIGER_PARAMETER

(APP_NAME,DEPT_CODE,EMP_NO,PARAMETER_NAME,PARAMETER_VALUE,position)

Values ('DOCTOR','*', '*','PASS','1','*');

INSERT INTO COMM.APP_CONFIGER_BASEINFO (APP_NAME,PARAMETER_NO,PARAMETER_NAME ,PARAINIT_VALUE ,PARAMETER_SCOPE, EXPLANATION ) VALUES ('DOCTOR',9,'PASS','1','1,0',' 1全院可以使用，0全院都不可以使用。');

COMMIT ;

2、可通过在HIS系统建立一表来设定哪些科室、用户可用，哪些科室、用户不可用。

3、在嵌入PASS功能工作站的INI文件中加入本机是否调动PASS系统功能的设置参数，INI中要求至少具有如下3 项设置：

A、 本地不调用PASS系统功能。

第 13 页 共 56 页

B、 本地要调用PASS系统功能，但还要受HIS系统数据库PASS参数设置的控制； C、 本地要调用PASS系统功能，但不受HIS系统数据库PASS参数设置的控制，

主要用于全院关闭PASS系统功能调用的情况下，进行软件调试用；

例如：在嵌入PASS工作站的DOCTOR.INI中加入是否调用PASS系统功能的参数控制段：

[PASS] PASS = 1

;0: 表示不调用PASS系统功能；

;1: 表示要调用PASS系统功能，但还要受HIS系统数据库PASS参数设置的控制；

;100: 表示要调用PASS系统功能，但不受HIS系统数据库PASS参数设置的控制，主要用于全院关闭PASS系统功能调用的情况下，进行软件调试用；

4、为了HIS系统的安全性，一般最好要求进行动态DLL调用。

五、门诊、住院医生工作站嵌入步骤

第一步：加入PASS DLL函数声明

为方便嵌入，下面分别提供了Powerbuilder、VB、Delphi开发语言中DLL函数声明文本，可直接拷贝文本来完成函数声明：

（一）、PASS系统DLL函数在PowerBuilder中声明文本

1、导入str_Rect结构体定义文件str_rect.srs，完成str_Rect结构体定义。

2、拷贝PASS系统DLL函数声明

//*******美康嵌入代码开始（DLL函数声明）************************************ //1、注册服务器

Function Int RegisterServer() Library \//2、PASS初始化

Function Int PassInit(String UserName,&

String DepartMentName,&

Int WorkstationType) Library \//3、PASS运行模式设置

Function Int PassSetControlParam(Int SaveCheckResult,& Int AllowAllegen,& Int CheckMode,& Int DisqMode,&

Int UseDiposeIdea) Library \

第 14 页 共 56 页

//4、传病人基本信息

Function Int PassSetPatientInfo(String PatientID,& String VisitID,& String Name,& String Sex,&

String Birthday,& String Weight,& String cHeight,&

String DepartMentName,& String Doctor,&

String LeaveHospitalDate) Library \//5、传病人药品信息

Function Int PassSetRecipeInfo(String OrderUniqueCode,& String DrugCode, & String DrugName,& String SingleDose,& String DoseUnit,& String Frequency,&

String StartOrderDate,& String StopOrderDate, & String RouteName,& String GroupTag,& String OrderType,&

String OrderDoctor)Library \//6、传入病人过敏史

Function Int PassSetAllergenInfo(string AllergenIndex,& string AllergenCode,& string AllergenDesc,& string AllergenType,&

string Reaction)Library \//7、传入病生状态

Function Int PassSetMedCond(string MedCondIndex,& string MedCondCode,& string MedCondDesc,& string MedCondType,& string StartDate,&

string EndDate)Library \//8、信息查询药品传入

Function Int PassSetQueryDrug(string DrugCode,& string DrugName,& string DoseUnit,&

string RouteName) Library \//9、获取右键菜单是否可用值

Function Int PassGetState(string QueryItemNo) Library \//10、PASS功能调用

Function Int PassDoCommand(Int CommandNo) Library \//11、获取药品警示级别

Function Int PassGetWarn(String DrugUniqueCode) Library \//12、设置药品浮动窗口位置

Function Int PassSetFloatWinPos(Int left,Int top,Int right,Int bottom) Library \

第 15 页 共 56 页

//13、设置需要进行单药警告的药品

Function Int PassSetWarnDrug(string DrugUniqueCode) Library \//14、PASS退出函数

Function Int PassQuit() Library \//15、Windows API取坐标

Function boolean GetWindowRect(ulong hwnd,ref str_Rect rect) LIBRARY \

//*******美康嵌入代码结束（DLL函数声明）***********************************

（二）、PASS系统DLL函数在VB中声明文本

//*******美康嵌入代码开始（DLL函数声明）*********************************** Option Explicit '1、注册服务器

Public Declare Function RegisterServer Lib \'2、PASS初始化

Public Declare Function PassInit Lib \ (ByVal UserName As String, _

ByVal DepartMentName As String, _

ByVal WorkstationType As Integer) As Integer '3、PASS运行模式设置

Public Declare Function PassSetControlParam Lib \ (ByVal SaveCheckResult As Integer, _ ByVal AllowAllegen As Integer, _ ByVal CheckMode As Integer, _ ByVal DisqMode As Integer, _

ByVal UseDiposeIdea As Integer) As Integer '4、传病人基本信息

Public Declare Function PassSetPatientInfo Lib \ (ByVal PatientID As String, _ ByVal VisitID As String, _ ByVal Name As String, _ ByVal Sex As String, _ ByVal Birthday As String, _ ByVal Weight As String, _ ByVal cHeight As String, _

ByVal DepartMentName As String, _ ByVal Doctor As String, _

ByVal LeaveHospitalDate As String) As Integer '5、传病人药品信息

Public Declare Function PassSetRecipeInfo Lib \ (ByVal OrderUniqueCode As String, _ ByVal DrugCode As String, _ ByVal DrugName As String, _ ByVal SingleDose As String, _

第 16 页 共 56 页