ISPatient.DeleteAlternativeName

Description

This function deletes the alternative name of the patient.

Syntax

object.DeleteAlternativeName aIndex

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface
`aIndex`	In, Required	int	The index of the alternative name.

Example

If the patient has alternative names, delete the first of them. Otherwise, display "This patient has no alternative names!".

Dim aPatient  
Dim aAlternativeNameCount

Set aPatient = Profile.SelectPatient 
aAlternativeNameCount = aPatient.AlternativeNameCount

if aAlternativeNameCount < 1 then
  Profile.MsgBox ("This patient has no alternative names!")
else
  aPatient.DeleteAlternativeName(0)
  Profile.MsgBox ("The first alternative name was deleted successfully!")  
end if

Note:

In Profile Client v8 on User Interface Alternative Names can be found and deleted in Patient > Alter Patient > Personal > Other field.

Version information

Added in v7.8.0