ISPatientCard.CSCardHolder

Description

Someone of the patient's relatives, who is the holder of the patient's CSCard.

Syntax

object.CSCardHolder

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

Return Value

ISPatient

Example

Display the card number and the card holder of the patient's dependent CSCards.

Dim aPatient
Dim aCSCard
Dim aCards, aCard
Dim aCardName

Set aPatient = Profile.SelectPatient

aCSCard = aPatient.HasCSCard

set aCards = aPatient.Cards

for i = 0 to aCards.count -1
  set aCard = aCards(i)

  if aCard.CardType = "CSC" and aCard.Discontinued = false then
    aCardName = aCardName & vbNewLine & "Card Number: " & aCard.CardNumber &_
      vbNewLine & "Dependent: " & aCard.CSCardDependent & "/ " 

  if aCard.CSCardHolder is nothing then
    aCardName = aCardName & "<none>"
  else 
    aCardName = aCardName & "Card Holder: " & aCard.CSCardHolder.SurnameFirstName & "; "
  end if
  end if
next

Profile.MsgBox("CSCard: " & aCSCard & aCardName)

Note: Only for New Zealand.

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

Version information

Added in v8.4.10