أسس 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)
        }
    }
}

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, !
}

// مزامنة البيانات بين المؤسسات
ClassMethod SyncPatientData(patientId) {
  // جلب البيانات من جميع المؤسسات
  Set institutions = ..GetConnectedInstitutions()
  Set iter = institutions.%GetIterator()
  While iter.%GetNext(.key, .inst) {
    Set data = ..FetchFromInstitution(patientId, inst)
    If data'="" {
      Do ..MergePatientRecord(patientId, data)
    }
  }
}

ربط HealthShare مع IRIS for Health لتبادل البيانات الصحية.

// إعداد Production للتكامل
Class MyApp.HealthShare.Production Extends Ens.Production {
  XData ProductionDefinition {
    
      
        5200
        |^~\&
      
      
        https://fhir.example.com
      
      
        MyApp.Routing.PatientRule
      
    
  }
}

// معالجة رسالة HL7 وتحويلها لـ FHIR
ClassMethod ProcessHL7Message(hl7Msg) {
  // تحويل HL7 إلى FHIR
  Set fhirPatient = ##class(HS.FHIR.Utils).HL7ToFHIR(hl7Msg, "Patient")
  
  // إرسال إلى HealthShare
  Set sc = ##class(HS.FHIR.Client).SendResource(fhirPatient, .response)
  
  If $$$ISOK(sc) {
    Write "تم إرسال المريض بنجاح: ", response.id, !
  }
}