This function returns the patient's ID from each partition.
object.LoadMPIInfos()
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatient interface |
Display the number of the patient's MPI Infos, list IDs of the partitions and IDs of the patient from these partitions.
Dim aPatient
Dim aMPIInfos
Dim aMPIInfo
Set aPatient = Profile.SelectPatient
set aMPIInfos = aPatient.LoadMPIInfos
aMessage = "MPI Infos Count = " & aMPIInfos.Count
for i = 0 to aMPIInfos.Count - 1
set aMPIInfo = aMPIInfos.Item(i)
aMessage = aMessage & vbNewLine & "Partition ID = " & aMPIInfo.PartitionId &_
", " & "Patient ID = " & aMPIInfo.PatientId
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface MPI Infos cannot be found.