如何代码实现服务注册

选择合适的适配器，开发代码。

在组件注册时选择开发的代码，按照业务逻辑配置即可。

可以通过Ens.Config.Production 的 %OpenId 方法打开现有的Production，

新建一个Ens.Config.Item的对象，该对象对应于Production界面中的各个组件（BusinessHost)

再使用production.Items.Insert方法将该Item对象插入到现有Production中，就可实现使用代码的方式创建Production 的 BusinessHost。

同时可以通过创建Ens.Config.Setting的实例以及设置相关属性的方式，对创建的BusinessHost中的配置在代码中进行设定，比如设定加载BO的URL、凭据等。

  #Dim businessHost as Ens.Config.Item = ##class(Ens.Config.Item).%New()
  #Dim setting as Ens.Config.Setting = ##class(Ens.Config.Setting).%New()
  #Dim production as Ens.Config.Production = ##class(Ens.Config.Production).%OpenId("MyPkg.DemoProduction")
  Set setting.Name="WebServiceURL"
  Set setting.Value="http://localhost:52773/MyWS/Demo.Test.cls"
  Set businessHost.ClassName="MyPkg.Operation.HISWSOperation"
  Set businessHost.Name ="HIS web 服务"
  Set businessHost.Production = production
  Do businessHost.Settings.Insert(setting)
  Do production.Items.Insert(businessHost)
  Set tsc = production.%Save()