The alias code for the payer of the patient's card.
object.Alias
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientCard interface |
string
Display the alias code for the payer of the patient's card.
Dim aPatient
Dim aCards
Dim aCard
Dim aMessage
Set aPatient = Profile.SelectPatient
set aCards = aPatient.Cards
aMessage = "Cards Count = " & aCards.Count
for i = 0 to aCards.Count - 1
set aCard = aCards.Item(i)
aMessage = aMessage & vbNewLine
aMessage = aMessage & aCard.Alias
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Alias can be found in
.