ISPatient.AddAlternativeName

Description

This function adds an alternative name of the patient.

Syntax

object.AddAlternativeName(aName)

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface
`aName`	In, Required	string	The alternative name of the patient

Return Value

int

Returns index of the added alternative name.

Example

Add an alternative name of the patient and display it's index.

Dim aPatient  
Dim aNewAlternativeName
Dim aMessage

Set aPatient = Profile.SelectPatient
aNewAlternativeName = aPatient.AddAlternativeName("John")

aMessage = aMessage & vbNewLine
aMessage = aMessage & "Alternative name was added successfully " 
aMessage = aMessage & "with serial number " & aNewAlternativeName

Profile.MsgBox (aMessage)

Note:

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

Version information

Added in v7.8.0