ISPatientCards.Delete

Description

This function deletes the patient's card.

Syntax

object.Delete aIndex

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

Example

If the patient has cards, delete the first of them. Otherwise, display "This patient has no cards!".

Dim aPatient  
Dim aCards

Set aPatient = Profile.SelectPatient
set aCards = aPatient.Cards

Profile.MsgBox ("We have " & aCards.Count & " cards")

if aCards.Count < 1 then
  Profile.MsgBox ("This patient has no cards!")
else
  aCards.Delete(0) 
  Profile.MsgBox ("The first card was deleted successfully!")  
end if     

aPatient.Save

Note:

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

Version information

Added in v7.8.0