This function deletes the selected registry key of the patient.
object.DeleteRegistryKey
aRegistryKey
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatient interface |
|
aRegistryKey |
In, Required | The registry key to delete |
Delete the registry key with the selected code.
Dim aPatient
Dim aPatientID
Dim aProviderID
Dim aRegistryCode
Dim aRegistryKey
Set aPatient = Profile.SelectPatient
aPatientID = aPatient.ID
aProviderID = 0
aRegistryCode = "REG1"
set aRegistryKey = Profile.getRegistryKey(aPatientID, aProviderID, aRegistryCode)
if aRegistryKey is nothing then
Profile.MsgBox ("This patient has no registry keys with this code!")
else
aPatient.DeleteRegistryKey(aRegistryKey)
Profile.MsgBox ("The registry key was deleted successfully!")
end if In Profile Client v8 on User Interface Registry Key can be found and deleted in .