PB12.6调用WEBSERVICE实现万达医技接口

long ll_result
string err
string str_proxy_name
str_proxy_name="wdinterservicesoaphisservicesoap"
is_strServerURL=profilestring("web_interface.ini","web_interface","web","")
try 
//【soap连接对象】
isc_SoapConn_wd = create soapconnection
catch (RUNtimeerror e11) 
err = '创建soapconnection 出现错误，错误消息是： ' + e11.getMessage() 
messagebox('SOAP连接错误',err) 
return 
end try 
try 
isc_SoapConn_wd.SetOptions("SoapLog=~"soaplog.txt~"") 
catch (RUNtimeerror e12) 
err = 'soapconnection 调用函数SetOptions 出现错误，错误消息是： ' + e12.getMessage() 
messagebox('SOAP连接错误',err) 
return 
end try 
//【创建web service代理对象实例】
try  
ll_result = isc_SoapConn_wd.CreateInstance(iproxy_obj_wd,str_proxy_name,is_strServerURL)
catch (RUNtimeerror e13) 
err = 'soapconnection 创建实例(函数createInstance)失败，错误消息是： ' + e13.getMessage() 
messagebox('SOAP连接错误',err) 
return 
end try 

if ll_result <> 0 then 
err =  '创建实例失败,请检查代理对象是否正确,错误代码' 
messagebox('创建实例失败',err) 
return 
end if 


choose case as_jyhs
		
	case 'StaticDataQuery'//【字典获取 】
try 
as_outputdata= iproxy_obj_wd.StaticDataQuery(as_inputdata)
catch (SoapException e14) 
messagebox('调用webservice[idatatransfersa]','调用webservice失败:' + e14.getMessage()) 
   return 0
catch (PBXRuntimeError e15) 
messagebox('调用webservice[idatatransfersa]','调用函数出现运行错误错误!' + e15.getMessage()) 
    return 0
catch (RUNtimeerror e16) 
messagebox('调用webservice[idatatransfersa]','调用函数出现不可知错误!'+ e16.getMessage()) 
    return 0
end try 
	case 'MedReqQuery'//【门诊申请单获取】
		try 
as_outputdata= iproxy_obj_wd.MedReqQuery(as_inputdata)
catch (SoapException e17) 
messagebox('调用webservice[idatatransfersa]','调用webservice失败:' + e17.getMessage()) 
   return 0
catch (PBXRuntimeError e18) 
messagebox('调用webservice[idatatransfersa]','调用函数出现运行错误错误!' + e18.getMessage()) 
    return 0
catch (RUNtimeerror e19) 
messagebox('调用webservice[idatatransfersa]','调用函数出现不可知错误!'+ e19.getMessage()) 
    return 0
end try 
	case 'MedHosQuery'//【住院申请单获取】
				try 
as_outputdata= iproxy_obj_wd.MedHosQuery(as_inputdata)
catch (SoapException e20) 
messagebox('调用webservice[idatatransfersa]','调用webservice失败:' + e20.getMessage()) 
   return 0
catch (PBXRuntimeError e21) 
messagebox('调用webservice[idatatransfersa]','调用函数出现运行错误错误!' + e21.getMessage()) 
    return 0
catch (RUNtimeerror e22) 
messagebox('调用webservice[idatatransfersa]','调用函数出现不可知错误!'+ e22.getMessage()) 
    return 0
end try 
	case 'MedReqReturn'//【完成状态回写】
try 
as_outputdata= iproxy_obj_wd.MedReqReturn(as_inputdata)
catch (SoapException e23) 
messagebox('调用webservice[idatatransfersa]','调用webservice失败:' + e23.getMessage()) 
   return 0
catch (PBXRuntimeError e24) 
messagebox('调用webservice[idatatransfersa]','调用函数出现运行错误错误!' + e24.getMessage()) 
    return 0
catch (RUNtimeerror e25) 
messagebox('调用webservice[idatatransfersa]','调用函数出现不可知错误!'+ e25.getMessage()) 
    return 0
end try 
	case 'MedReqCancel'//【撤销状态回写】
		try 
as_outputdata= iproxy_obj_wd.MedReqCancel(as_inputdata)
catch (SoapException e26) 
messagebox('调用webservice[idatatransfersa]','调用webservice失败:' + e26.getMessage()) 
   return 0
catch (PBXRuntimeError e27) 
messagebox('调用webservice[idatatransfersa]','调用函数出现运行错误错误!' + e27.getMessage()) 
    return 0
catch (RUNtimeerror e28) 
messagebox('调用webservice[idatatransfersa]','调用函数出现不可知错误!'+ e28.getMessage()) 
    return 0
end try 
	case 'MedTBLisReport '//【实验室检验报告回写】
			try 
//as_outputdata= iproxy_obj_wd.MedTBLisReport(as_inputdata)
catch (SoapException e29) 
messagebox('调用webservice[idatatransfersa]','调用webservice失败:' + e29.getMessage()) 
   return 0
catch (PBXRuntimeError e30) 
messagebox('调用webservice[idatatransfersa]','调用函数出现运行错误错误!' + e30.getMessage()) 
    return 0
catch (RUNtimeerror e31) 
messagebox('调用webservice[idatatransfersa]','调用函数出现不可知错误!'+ e31.getMessage()) 
    return 0
end try 
	case 'MedTBLISIndicators'//【检验结果指标回写】
				try 
//as_outputdata= iproxy_obj_wd.MedTBLISIndicators(as_inputdata)
catch (SoapException e32) 
messagebox('调用webservice[idatatransfersa]','调用webservice失败:' + e32.getMessage()) 
   return 0
catch (PBXRuntimeError e33) 
messagebox('调用webservice[idatatransfersa]','调用函数出现运行错误错误!' + e33.getMessage()) 
    return 0
catch (RUNtimeerror e34) 
messagebox('调用webservice[idatatransfersa]','调用函数出现不可知错误!'+ e34.getMessage()) 
    return 0
end try 	
end choose

PB12.6调用WEBSERVICE轻松实现万达医技接口

1、门诊申请单下载

2、住院申请单下载

3、医技状态回写