This function makes the patient sealed (all records about the patient become read-only and cannot be modified by anyone).
object.SealPatient
aPatientID
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
|
aPatientID |
In, Required | int |
ID of the patient to seal |
Display whether the patient's records are sealed or unsealed and offer to seal or unseal them.
Dim aPatient
Dim aID
Set aPatient = Profile.SelectPatient
aID = aPatient.ID
Profile.SealPatient(aID)