تكامل أنظمة المستشفيات

أنظمة معلومات المستشفى (HIS) لإدارة العمليات الصحية.

ClassMethod ReceiveADT(msg) {
  Set msgType = msg.GetValueAt("MSH:9.1")
  If msgType = "ADT^A01" { Do ..HandleAdmission(msg) }
  ElseIf msgType = "ADT^A03" { Do ..HandleDischarge(msg) }
}

ربط التدفقات السريرية بين الأنظمة المختلفة.

// معالجة أمر مختبر
ClassMethod ProcessLabOrder(msg) {
  Set orderId = msg.GetValueAt("OBR:1")
  Set patientId = msg.GetValueAt("PID:3.1")
  Set testCode = msg.GetValueAt("OBR:4.1")
  
  // إنشاء أمر مختبر
  Set labOrder = ##class(MyApp.LabOrder).%New()
  Set labOrder.OrderId = orderId
  Set labOrder.PatientId = patientId
  Set labOrder.TestCode = testCode
  Set labOrder.Status = "Pending"
  Set labOrder.OrderDate = $H
  Do labOrder.%Save()
  
  // إرسال تأكيد
  Set ack = ##class(EnsLib.HL7.Message).%New()
  Set ack.DocType = "2.5:ORL_O22"
  Do ack.SetValueAt("ORL^O22", "MSH:9")
  Do ack.SetValueAt(orderId, "MSA:2")
  Do ack.SetValueAt("AA", "MSA:1") // Application Accept
  
  Return ack
}

ربط الأجهزة الطبية مع نظام المستشفى.

// تكامل أجهزة المراقبة
Class Hospital.HIS.DeviceIntegration
{
    ClassMethod ProcessVitalSigns(deviceId As %String, data As %DynamicObject)
    {
        Set vitals = ##class(Hospital.Models.VitalSigns).%New()
        Set vitals.DeviceId = deviceId
        Set vitals.PatientId = data.patientId
        Set vitals.HeartRate = data.heartRate
        Set vitals.BloodPressureSys = data.bpSys
        Set vitals.BloodPressureDia = data.bpDia
        Set vitals.Temperature = data.temperature
        Set vitals.OxygenSaturation = data.spo2
        Set vitals.RecordedAt = $HOROLOG
        Do vitals.%Save()
        
        // التحقق من القيم الحرجة
        Do ..CheckCriticalValues(vitals)
    }
    
    ClassMethod CheckCriticalValues(vitals As Hospital.Models.VitalSigns)
    {
        Set alerts = ##class(%ListOfDataTypes).%New()
        
        If vitals.HeartRate < 60 || vitals.HeartRate > 100 {
            Do alerts.Insert("نبض غير طبيعي: " _ vitals.HeartRate)
        }
        If vitals.OxygenSaturation < 95 {
            Do alerts.Insert("أكسجين منخفض: " _ vitals.OxygenSaturation _ "%")
        }
        
        If alerts.Count() > 0 {
            Do ..SendAlert(vitals.PatientId, alerts)
        }
    }
}

تسجيل جميع العمليات الحساسة أمر إلزامي للامتثال التنظيمي.

// نظام تسجيل التدقيق
ClassMethod AuditLog(userId, action, resource, details) {
  Set log = ##class(MyApp.AuditLog).%New()
  Set log.UserId = userId
  Set log.Action = action
  Set log.Resource = resource
  Set log.Details = details
  Set log.Timestamp = $ZDT($H, 3)
  Set log.IPAddress = %request.CgiEnvs("REMOTE_ADDR")
  Set log.SessionId = %session.SessionId
  
  Do log.%Save()
  
  // تنبيه عند العمليات المشبوهة
  If action = "DELETE" || action = "EXPORT" {
    Do ..SendSecurityAlert(userId, action, resource)
  }
}

🔗 الربط مع COMPLIANCELINC: يستخدم COMPLIANCELINC من BrainSAIT هذه السجلات للمراجعة التلقائية.