How to create a business service for reading JSON input into the Ensemble production

Question

Question

Joe Jones · Mar 13, 2023

#Business Service #Key Question #Ensemble

Hi Community,

I am receiving a JSON file as input in ensemble and i need to convert the JSON message to HL7 message.

Can anyone share few points how to read a JSON file into Ensemble production by creating a Custom Business service?

I have created a custom business service as below but i am not aware which parameters i need to pass in OnProcessInput method?

Method OnProcessInput(pInput As Ens.Request, Output pOutput As %RegisteredObject) As %Status

Do i need to Ens.Request or RegisteredObject or Ens.StreamContainer?

Thanks,

Joe

Product version: Ensemble 2018.1

$ZV: Cache for Windows (x86-64) 2018.1.1 (Build 312_1_18937U) Fri Apr 26 2019 17:58:36 EDT

Discussion (13)2

Log in or sign up to continue

Oliver Wilms · Mar 21, 2023

Joe, I just realized I had not updated the Production class with the business process in GitHub. It is now here:

https://github.com/oliverwilms/HL7/commit/ce501e84f603ecb30085cd41957b78...

1 0

Jeffrey Drumm · Mar 22, 2023

I'm not sure whether this will work in Ensemble 2018.1, but it does seem to work fine in IRIS for Health Interoperability 2022.2.

I'm testing with a simple JSON file that looks like this:

{
    "mrn": 12345678,
    "name": "Johann Smythe",
    "firstname": "Johann",
    "lastname": "Smythe",
    "dob": "1989-03-21 14:20:00",
    "phone": "(555) 555-4917",
    "mobile": "(555) 555-6401",
    "email": "johann@smythe.com",
    "address": "123 Anystreet St",
    "city": "Anytown",
    "state": "ME",
    "zip": "04121"
}

I've used the File Passthrough Service (EnsLib.File.PassthroughService) to read the JSON document into a stream, message class Ens.StreamContainer. Because this isn't an HL7 object, my router is based on the "General Message Routing Rule" rule type, and my constraint consists of the source service name with a message class of Ens.StreamContainer.

In the DTL called by the send action, I use Ens.StreamContainer as the source message type. The target message type is EnsLib.HL7.Message with whatever Document Category and Type is needed.

The first rule in the DTL is this:

After setting a number of default values for the target HL7 message (Event Type/Trigger, Date/Time of message, etc.) I populate the PID fields as follows:

And I now have an HL7 message created from JSON.

This isn't going to work with a batch of patient records in a JSON array; you'd need to create a BPL to process that. But for input that consists of a simple structure like the example I used, you can accomplish what you need without building a custom service or creating a BPL.

4 0

score 1 · Answer 1 · 2023-03-13T20:59:19-04:00

Joe,

If your input is a JSON file, the business service could be a File Service which passes Ens.StreamContainer request object to a business process where you could transform the request to an HL7 message which can be sent to a HL7 operation.

score 0 · Answer 2 · 2023-03-14T05:51:02-04:00

Thank you ,

Can i give the OnProcessInput method like below

Method OnProcessInput(pInput As Ens.Request, Output pOutput As Ens.StreamContainer) As %Status

How to map the fields in JSON file to HL7 message Fields?

score 0 · Answer 3 · 2023-03-20T10:23:27-04:00

***Disclaminer, I consider myself to be a fairly new Cache Objectscript developer. If any developers with more experience have suggestions for how to do this easier, more efficient, etc. Please share. I am eager to learn more that will help me in the future. :)

I have done this in the past, I created a business service with the EnsLib.HTTP.InboundAdapter to receive the JSON message on a REST end point. I also created a class for the JSON message structure. In the business service, I receive the JSON message and pass it to a business operation. In the business operation I have a transform that transforms the JSON to HL7 message, then the business process passes the HL7 message to a business operation to send to a new HL7 end point. This code was created in Ensemble 2017. If you are using IRIS, there are more classes for JSON message handling you might be able to use.

My business service handles several different JSON messages, this is the one of the methods I have for one of the messages. In the method I convert the JSON object that was received into a new object of type TMP.AppointmentReqMsg. TMP.AppointmentReqMsg is the class that defines the JSON message structure.

The new JSON object is passed to a business process to process the message. In the business process, I have a transform that transforms the JSON object to HL7. Then the business process will call the business operation that sends the HL7 message on to an HL7 end point.

Hope this helps.

Method appointmentAction1(pInput As %Library.AbstractStream, Output pOutput As %Stream.Object, pAppointment As %Stream.Object) As %Status
{ $$$LOGWARNING("In processing appointments") #dim ApptArray As %List
#dim tSC,tSC1,tSC2 As %Status = $$$OK #dim processingFlag As %String
#dim patientFacility As %String
#dim providerFacility As %String
#dim pFlag,provFlag,patFlag AS %Numeric = 0

d pInput.Rewind()
s pJSON=pInput.Read() set sc=##class(%ZEN.Auxiliary.jsonProvider).%ConvertJSONToObject(pJSON,"TMP.AppointmentReqMsg",.pRequestBody,1)
s:##class(Ens.Util.FunctionSet).Lookup("CernerSites",pRequestBody.ProviderFacility)>0 provFlag=1
S:##class(Ens.Util.FunctionSet).Lookup("CernerSites",pRequestBody.PatientFacility)>0 patFlag=1
     s pFlag=provFlag+patFlag   ;pFlag=0;VistA only, pFlag=2;Cerner only, pFlag=1;Cerner and VistA
     s pRequestBody.ProcessingFlag=(provFlag+patFlag)
$$$LOGWARNING("checking json")
s:##class(Ens.Util.FunctionSet).Lookup("CernerSites",pRequestBody.PatientResources.Facility)'>0 tSC2 = ..checkJSON(pRequestBody.PatientResources.Resources)
$$$LOGWARNING("checking json returned "_tSC2)
i $p(tSC2,"^",1)=2 s tSC=..ReturnJSONAckMsg(.pRequestBody,tSC2)
q:$p(tSC2,"^",1)=2 200
s:##class(Ens.Util.FunctionSet).Lookup("CernerSites",pRequestBody.ProviderResources.Facility)'>0 tSC2 = ..checkJSON(pRequestBody.ProviderResources.Resources)
$$$LOGWARNING("checking json returned "_tSC2)
i $p(tSC2,"^",1)=2 s tSC=..ReturnJSONAckMsg(.pRequestBody,tSC2)
q:$p(tSC2,"^",1)=2 200

s badResponse=##class(AppointmentResponseMsg).%New()
s badResponse.ControlId = pRequestBody.ControlId
s badResponse.MessageId = pRequestBody.MessageId
s badResponse.OrganizationName = "CVT15"
s badResponse.Status="AA"
s badResponse.FailureReason=""
if +$L(patientFacility)>0
{
s VistABO=##class(Ens.Util.FunctionSet).Lookup("TMP_VistA_Systems",patientFacility),^zzphil("p1")=VistABO

s:$g(VistABO)="" badResponse.FailureReason="Patient Site is not configured in HealthConnect"
}

if $L(providerFacility)>0
{
s VistABO1=##class(Ens.Util.FunctionSet).Lookup("TMP_VistA_Systems",providerFacility)
s:##class(Ens.Util.FunctionSet).Lookup("CernerSites",providerFacility)>0 provprocessingFlag="Cerner"
s:$g(VistABO1)="" badResponse.FailureReason="Provider Site is not configured in HealthConnect"
}

if badResponse.FailureReason'=""
{
    set tSC=..SendRequestSync("ProcessBadApptRequest",.badResponse,.pResponse) Quit:$$$ISERR(tSC)
}

else
{

if pFlag=0
{
s tSC1 = ..SendRequestSync("ProcessVistAAppointments",.pRequestBody,.pResponse)
}

if pFlag=1
{
  s tSC1 = ..SendRequestSync("ProcessCernerAndVistAAppointments",.pRequestBody,.pResponse)
}
if pFlag=2
{
  s tSC1 = ..SendRequestSync("ProcessCernerOnlyAppointments",.pRequestBody,.pResponse)
} }
Quit tSC1
}

score 0 · Answer 4 · 2023-03-21T04:59:31-04:00

Hi

I agree with your point it will be very helpful to have basic examples for new developers in Cache Object scripts.

Can you please give me an example how to create a JSON message structure @Phil Burkhalter for a JSON message?

Thanks,

Joe

score 0 · Answer 5 · 2023-03-22T13:01:24-04:00

Phil Burkhalter · Mar 22, 2023

this is one of my classes to define a JSON message

0 0

score 0 · Answer 6 · 2023-03-22T13:03:56-04:00

Class TMP.AppointmentReqMsg Extends Ens.Request
{ // ProcessingFlag property is used to determine if the appt is for Cerner, Cerner and VistA or just VistA. // This flag is used by the BP Property ProcessingFlag As %String; Property MessageId As %String; Property ControlId As %String; Property LogicAppRunId As %String(MAXLEN = 150); Property AppointmentID As %String(MAXLEN = 150); Property AppointmentType As %String; Property StartTime As %String; Property Duration As %String; Property VisitStatus As %String; Property CancelCode As %String; Property CancelReason As %String; Property CancelRemarks As %String(MAXLEN = 160); Property ClinicallyIndicatedDate As %String; Property Comments As %String(MAXLEN = 160); Property VvdUrl As %String(MAXLEN = 500); Property SchedulerInfo As array Of SchedulerInfo; Property PatientInfo As TMP.PatientInfo; Property ProviderFacility As %String; Property PatientFacility As %String; // Property PatientResources As list Of AppointmentResources; Property PatientResources As TMP.AppointmentResources; Property ProviderResources As TMP.AppointmentResources;

score 0 · Answer 7 · 2023-03-20T21:33:53-04:00

I tried to implement in HL7 production created by New Production wizard. I think we cannot process Ens.StreamContainer using RoutingRule because Ens.StreamContainer does not have DocType property.

Going to try with a BPL Business Process ...

score 0 · Answer 8 · 2023-03-21T05:22:26-04:00

Thank you ,

I have tried the steps mentioned in the below post but i am not sure what values i need to use in few variables

https://community.intersystems.com/post/parse-hl7-content-json-request-e...

This is example mentioned in the link

SET tContent = %request.Content.Read()---->in %request do we need to declare any variable

WHILE '%request.Content.AtEnd {

SET tContent = tContent + %request.Content.Read()

}

SET tReq = {}.%FromJSON(tContent)

SET tInput = tReq.Message

// Remove your %New() statement and set tMsg like this

SET tMsg = ##class(EnsLib.HL7.Message).ImportFromString(tInput)

// Then you can either set the doctype manually or use PokeDocType()

Let me know if you have any ideas on this one?

score 1 · Answer 9 · 2023-03-21T09:16:11-04:00

Joe,

I created a HL7 production, added JSON Passthrough File Service. Use BPL and DTL to transform Ens.StreamContainer to HL7 Message. Code is here:

https://github.com/oliverwilms/HL7

Input test file I use this (no double double quotes):

{"Doctype":"ADT^A01","PatientId":"123","PatientName":"Alex"}

I see PatientId in HL7 message, but not PatientName. Need to review the DTL ...

score 0 · Answer 10 · 2023-03-23T13:48:12-04:00

Hi Oliver,

I have tried the same steps by using BPL i am able to convert the message but i am not supposed to use BPL logic in my tasks , so i am trying to figure other ways for this conversion

score 0 · Answer 11 · 2023-04-10T06:11:12-04:00

Developer Commu... · Apr 10, 2023

💡 This question is considered a Key Question. More details here.

0 0