Merhabalar sabahtan beri uğraşıyorum patient altındaki family ye ulaşmak için ama bir türlü ulaşamadım
Name. diyince items diye birşey çıkıyor burdan nasıl ulaşacağım ben Family ve given kısmına kod aşağıda
Dim muayeneServices As New Muayene.WSMuayeneService
Dim muayeneRequest As New Muayene.MCCIRequestMessage
Dim muayeneResponse As New Muayene.MCCIResponseMessage
muayeneRequest.controlActEvent = New Muayene.MCCIControlActEvent
muayeneRequest.controlActEvent.subject.ClinicalDocument.recordTarget = New Muayene.POCD_MT000040RecordTarget() {}
muayeneRequest.controlActEvent.subject.ClinicalDocument.recordTarget(0).patientRole = New Muayene.POCD_MT000040PatientRole
muayeneRequest.controlActEvent.subject.ClinicalDocument.recordTarget(0).patientRole.patient = New Muayene.POCD_MT000040Patient
muayeneRequest.controlActEvent.subject.ClinicalDocument.recordTarget(0).
patientRole.patient.name = New Muayene.PN() {}
ReDim Preserve muayeneRequest.controlActEvent.subject.ClinicalDocument.recordTarget(0).
patientRole.patient.name(0)
muayeneRequest.controlActEvent.subject.ClinicalDocument.recordTarget(0).
patientRole.patient.name(0) = New Muayene.PN
muayeneRequest.controlActEvent.subject.ClinicalDocument.recordTarget(0).
patientRole.patient.name(0).Items = New Muayene.ENXP() {}
ReDim Preserve muayeneRequest.controlActEvent.subject.ClinicalDocument.recordTarget(0).
patientRole.patient.name(0).Items(0)
muayeneRequest.controlActEvent.subject.ClinicalDocument.recordTarget(0).
patientRole.patient.name(0).Items(0) = New Muayene.ENXP
muayeneRequest.controlActEvent.subject.ClinicalDocument.recordTarget(0).
patientRole.patient.name(0).Items()
muayeneRequest.controlActEvent.subject.ClinicalDocument.author = New Muayene.POCD_MT000040Author() {}
muayeneResponse = muayeneServices.MCCI_AR000001TR_MCCI_IN000001TR(muayeneRequest)