ISPatientCard.Discontinued

Description

Returns True if the patient's card is expired or is not to be used.

Syntax

object.Discontinued

Part	Attribute	Type	Description
`object`	Required	ISPatientCard	The `object` always implements the ISPatientCard interface

Restriction: This property is readonly.

Return Value

bool

Example

Display Discontinued for 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 & "This " & aCard.CardType & " card is discontinued = " 
  aMessage = aMessage & aCard.Discontinued
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface the Discontinued checkbox can be checked in Patient > Alter Patient > Financial > Health Plans and Cards > Edit Card.

Version information

Added in v7.8.0