This procedure updates the current patient object as stored within Profile.
object.Save
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatient interface |
Create new patient object and save it.
Dim aPatient
Set aPatient = Profile.NewPatient
aPatient.FirstName = "Hanna"
aPatient.LastName = "Smith"
aPatient.DOB = #11/22/1975#
aPatient.Status = 4
aPatient.PatientType = 1
aPatient.Save
Profile.MsgBox ("The patient was saved successfully")