This function updates the details of the patient's card with the specified name, number and expiry date. If there are no cards with the specified parameters, the function adds a new card.
object.UpdateCardDetails(aCardName, aNumber,
aExpiry)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatient interface |
|
aCardName |
In, Required | string |
The card name |
aNumber |
In, Required | string |
The card number |
aExpiry |
In, Required | DateTime |
The expiry date of the card |
int
Display 0 if the patient's card with the specified name, number and expiry date was updated successfully. Otherwise, display –1.
Dim aPatient
Dim aCardName
Dim aNumber
Dim aExpiry
Dim aUpValidCardDetails
Set aPatient = Profile.SelectPatient
aCardName = "CSC"
aNumber = "00000-11111111-22-2"
aExpiry = #01/04/2019#
aUpValidCardDetails = aPatient.UpdateCardDetails(aCardName, aNumber, aExpiry)
aPatient.Save
Profile.MsgBox (aUpValidCardDetails)
In Profile Client v8 on User Interface Cards can be found and updated in
.