ISPatientCards.Item

Description

Each of the cards within the patient's cards.

Syntax

object.Item(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISPatientCards	The `object` always implements the ISPatientCards interface
`aIndex`	In, Required	int	The index of the card

Restriction: This property is readonly.

Return Value

ISPatientCard

Example

Display the type of each patient's card.

Dim aPatient  
Dim aCards
Dim aCard
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aCards = aPatient.Cards
aMessage = "Cards Count = " & aCards.Count & vbNewLine

for i = 0 to aCards.Count - 1
  set aCard = aPatient.Cards.Item(i)
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & aCard.CardType 
next

Profile.MsgBox(aMessage)

Note: This is a zero based array, so the first item is at (0).

In Profile Client v8 on User Interface Cards can be found in Patient > Alter Patient > Financial > Health Plans and Cards.

Version information

Added in v7.8.0