This function deletes the selected entity of the patient.
object.DeleteEntityId
aEntityId
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatient interface |
|
aEntityId |
In, Required | The entity identifier |
Delete the selected entity of the patient and display the number of the rest.
Dim aPatient
Dim aTr
Dim aEntityCollection
Dim aEntityCollection2
Dim aEntityCollection3
Set aTr = Profile.StartMapTransaction
set aPatient = Profile.SelectPatient
set aEntityCollection = aPatient.GetEntityIdBySource ("My source 1")
Profile.MsgBox("Entities Count before changes = " & aEntityCollection.Count)
aPatient.AddEntityId "My source 1", "My identifier", "My value A"
aPatient.Save
aTr.SnapShot
set aEntityCollection2 = aPatient.GetEntityIdBySource ("My source 1")
Profile.MsgBox("Entities Count after changes = " & aEntityCollection2.Count)
set aFirstEntity = aEntityCollection2.Item(0)
aPatient.DeleteEntityId (aFirstEntity)
aPatient.Save
aTr.SnapShot
set aEntityCollection3 = aPatient.GetEntityIdBySource ("My source 1")
Profile.MsgBox("Entities Count after deleting = " & aEntityCollection3.Count) In Profile Client v8 on User Interface Entity Id can be deleted in .