ISPatient.ValidCardsAt

Description

This function returns the patient's cards that are valid on the selected date.

Syntax

object.ValidCardsAt(aDate)

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface
`aDate`	In, Required	DateTime	The date the cards validation is checked for

Return Value

ISPatientCards

Returns the patient's valid cards.

Example

Display the patient's valid cards for the selected date.

Dim aPatient  
Dim aCards
Dim aCard
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aCards = aPatient.ValidCardsAt(#21/12/2018#)

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:

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