أسس HealthShare

HealthShare هو منصة لتبادل المعلومات الصحية بين المؤسسات.

ClassMethod SendToHIE(patientData) {
  Set config = ##class(HS.Util.Connection).%New()
  Set config.Endpoint = "https://hospital.example.com/fhir"
  Set sc = ##class(HS.FHIR.Client).SendPatient(patientData, config)
}

HIE يتيح تبادل المعلومات الصحية بين المؤسسات بشكل آمن.

// إنشاء اتصال HIE
ClassMethod ConnectToHIE() {
  Set config = ##class(HS.Util.Hub).%New()
  Set config.HubName = "NationalHIE"
  Set config.Endpoint = "https://hie.example.com/fhir"
  
  // تسجيل مريض
  Set patient = ##class(HS.SDA3.Patient).%New()
  Set patient.Name.FamilyName = "محمد"
  Set sc = ##class(HS.Util.Hub).RegisterPatient(patient, config)
  
  // طلب سجل مريض من مؤسسة أخرى
  Set request = ##class(HS.Message.PatientSearchRequest).%New()
  Set request.PatientId = "12345"
  Set sc = ##class(HS.Util.Hub).SearchPatient(request, .response)
  
  Write "Found: ", response.Patient.Name.FamilyName, !
}

ربط مؤسسات صحية متعددة عبر HealthShare.

// ربط مؤسسة صحية
Class Hospital.HIE.FacilityConnector
{
    ClassMethod RegisterFacility(name As %String, endpoint As %String, type As %String)
    {
        Set facility = ##class(HS.Registry.Facility).%New()
        Set facility.Name = name
        Set facility.Endpoint = endpoint
        Set facility.Type = type
        Set facility.Status = "active"
        Do facility.%Save()
    }
    
    ClassMethod SyncPatientData(mrn As %String, facilityId As %String)
    {
        // جلب البيانات من المؤسسة البعيدة
        Set facility = ##class(HS.Registry.Facility).%OpenId(facilityId)
        Set url = facility.Endpoint _ "/Patient?identifier=" _ mrn
        
        // إرسال طلب HTTP
        Set http = ##class(%Net.HttpRequest).%New()
        Set http.Server = facility.Endpoint
        Set sc = http.Get("/Patient?identifier=" _ mrn)
        
        If $$$ISOK(sc) {
            Set response = http.HttpResponse.Data
            // معالجة البيانات المستلمة
            Do ..ProcessRemoteData(response, mrn)
        }
    }
}