This function sets a new Accession login password for the patient on the basis of the answers to the security questions.
object.SetWebPasswordByAnswers(aNewPassword, aQuestions,
aAnswers)
Set a new Accession login password for the patient on the basis of the answers to the security questions and display "True" if the password can be set successfully.
Dim aPatient
Dim aPasswordMacroLog
Dim aQuestions
Dim aAnswers
Dim aNewPassword
Set aPatient = Profile.SelectPatient
aNewPassword = "111111"
set aQuestions = Profile.CreateStrings
aQuestions.Add("TEST1")
aQuestions.Add("TEST2")
set aAnswers = Profile.CreateStrings
aAnswers.Add("1")
aAnswers.Add("2")
set aPasswordMacroLog = aPatient.SetWebPasswordByAnswers(aNewPassword,_
aQuestions, aAnswers)
aPatient.Save
Profile.MsgBox(aPasswordMacroLog.CanProceed)In Profile Client v8 on User Interface Security Questions and Answers can be found in .