· Feb 2 2m read

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


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


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


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=0
        Set httpRequest.Timeout=600
        Set 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.

Discussion (0)1
Log in or sign up to continue