Ensemble에서 SQL Adapter를 이용한 Inbound 비즈니스 서비스 예제코드입니다. 아래 클래스를 참고하세요.

Class MyProduction.ScheduleSQLService Extends Ens.BusinessService [ ProcedureBlock ]

{

Parameter ADAPTER = "EnsLib.SQL.InboundAdapter";

Method OnProcessInput(pInput As EnsLib.SQL.Snapshot, pOutput As %RegisteredObject) As %Status

{

           // make message

           set tReq=##class(MyProduction.SQL2HL7Request).%New()

           set tReq.PatientName=pInput.Get("NAME")

           set tReq.DeptName=pInput.Get("DEPTNAME")

           // send message

           do ##class(MyProduction.SQL2HL7).Transform(tReq, .tHL7Msg)

           set tSC = ..SendRequestAsync("ScheduleSQLOperation", tHL7Msg)      

           Quit $$$OK

}

}