This function updates the details of the patient's card with the specified name, number, reference, started and expiry date. If there are no cards with the specified parameters, the function adds a new card.
object.UpdateCardDetailsEX(aCardName, aNumber,
aReference, aStarted, 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 |
aReference |
In, Required | string |
The card reference |
aStarted |
In, Required | DateTime |
The date when the card started to be
valid |
aExpiry |
In, Required | DateTime |
The expiry date of the card |
Update the patient's card with the specified name, number, reference, started and expiry date.
Dim aPatient
Dim aCardName
Dim aNumber
Dim aReference
Dim aExpiry
Dim aStarted
Dim aUpValidCardDetailsEX
Set aPatient = Profile.SelectPatient
aCardName = "HUC"
aNumber = "1234567890"
aReference = "123"
aExpiry = #01/04/2019#
aStarted = #12/25/2018#
set aUpValidCardDetailsEX = aPatient.UpdateCardDetailsEX(aCardName, aNumber,_
aReference, aStarted, aExpiry)
aPatient.Save
Profile.MsgBox ("The card was updated successfully!") In Profile Client v8 on User Interface Cards can be found and updated in .