This property is True if the holder of the patient's CSCard is someone of the patient's relatives.
object.CSCardDependent
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientCard interface |
bool
Display CSCardDependent for the patient's CSCard.
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.Item(i)
if aCard.CardType = "CSC" and aCard.Discontinued = false then
aCardName = aCardName & vbNewLine & "Card Number: " & aCard.CardNumber &_
vbNewLine & "Dependent: " & aCard.CSCardDependent & "/ " & vbNewLine
end if
next
Profile.MsgBox("CSCard: " & aCSCard & aCardName)
In Profile Client v8 on User Interface the Dependent checkbox can be checked in
.