Fhir-HepatitisC-Predict application

Hi Community

This document mainly enriches the content of the previous article and introduces the use of the application.

Perhaps you have already read the previous article, but I still want to say,
After completing the initialization operation (including model creation and training), the Fhir HepatitisC Predict application then predicts HepatitisC

First

You need to input some information on the application, of course, only the results of some checks, not including privacy data.

SHOW

Clicking the show button will display whether the data for this indicator is within the normal range, whether the indicator is high or low. Of course, the data range for each indicator is obtained through querying information, which may differ slightly from the actual range

Prediction

After completing the input of information, clicking on prediction actually involves many operations in the application.

1. Convert the sent JSON format examination results into FHIR resources (using simulated data for some patient basic information and other privacy data)
2. Register the converted FHIR resources to the FHIR resource repository through the API interface provided by FHIR Server (ip: port/hir/r4/), similar to using Postman for interface calls. It should be noted that set the Content Type to application/JSON+fhir
   

   ClassMethod HTTPSend(IPAddress As%String, Port As%String, Url As%String, Body As%String, Output HttpResponse As%String(MAXLEN=256000)) As%Status
   {
   	
   	Set httpRequest=##class(%Net.HttpRequest).%New()
   	Do httpRequest.SetHeader("Content-Type","application/json+fhir")
   	Do httpRequest.SetHeader("Accept","*/*")
       Set httpRequest.Port=Port
       Set httpRequest.Server=IPAddress
       Set httpRequest.Https=0Set httpRequest.Timeout=600Set httpRequest.ContentCharset="UTF-8"Set httpRequest.ContentEncoding="UTF-8"d httpRequest.EntityBody.Write(Body)
       Set status=httpRequest.Post(Url)
       IF 'status {
   	    Set HttpResponse = "Connection failed, call exception"return"Connection failed, call exception："_$SYSTEM.Status.GetErrorText(status)
   	}
       Set response = httpRequest.HttpResponse
       Set ResponseData = response.Data
       Set HttpResponse=""while 'ResponseData.AtEnd{
   	    Set HttpResponse=HttpResponse_ResponseData.Read()
       }
   
       return$$$OK
   }
   

   

3. Then, using the trained model to predict the data, the predicted results can be seen.

Of course, this completes the prediction.