The external card holder of the patient's CSCard.
object.CSCardHolderExternal
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientCard interface |
string
Display the card number and the card holder external 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 & "/ Card Holder External: " &_
aCard.CSCardHolderExternal & "; "
end if
next
Profile.MsgBox("CSCard: " & aCSCard & aCardName)
In Profile Client v8 on User Interface CSCard Holder External can be found in
.