ISPatientCard.CSCardRelationship

Description

The relationship between the CSCard holder and the patient.

Syntax

object.CSCardRelationship

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

Return Value

ISLookupItem2

Example

Display the card number and the card holder relationship 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.CSCardRelationship is nothing then
    aCardName = aCardName & "<none>"
  else 
    aCardName = aCardName & "Card Holder Relationship: " &_ 
      aCard.CSCardRelationship.Description & "; "
  end if
  end if
next

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

Note: Only for New Zealand.

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

Version information

Added in v8.4.10