InterSystem Ensemble配置：一个BS ->三个BO

1, 第三方业务接口：数据流出端

a, EMR端数据接口

b, Lis端数据接口

2, Ensemble处理消息–>调用第三方接口

a, BS [webservice]

Method saveEmr(pInput As com3.MSG.AddEmrReq) As com3.MSG.AddEmrResp [ WebMethod ]
{
	set res=""
	do ..SendRequestSync("com3.BP.EmrBPL", pInput,.res)
	
	set tStream = ""
    d ##class(%ZEN.Auxiliary.jsonProvider).%WriteJSONStreamFromObject(.tStream,res)
    $$$LOGINFO( tStream.Read() )
	q res
}

b, BP

c, BO

• REST BO配置
  

• REST客户端

//调用post请求
	set turl=..Adapter.URL
	#dim jsonobj as %DynamicObject={}
	set jsonobj.lisPatage= pRequest.lisPatage
	set jsonobj.lisPatname=pRequest.lisPatname
	
	set json=jsonobj.%ToJSON()
	$$$LOGINFO(turl_";"_json)
	
	set tSC= ..Adapter.PostURL(turl, .databack,, json)
	q tSC