ISPatientCard.EntitlementID

Description

ID of the patient's card from NES.

Syntax

object.EntitlementID

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

Restriction: This property is readonly.

Return Value

int

Example

Display the card number and Entitlement ID of the patient's 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 & "/ EntID: " &_ 
      aCard.EntitlementID 
  end if
next

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

Note: Value 0 means that the patient's card is not linked to NES CSC Entitlement.

In Profile Client v8 on User Interface Entitlement ID cannot be found.

Version information

Added in v8.4.10