I am getting the error 'Unknown key of uninstantiated object {USER_PROFILE.UserID} (91,16)' while saving the component interface using the following code:-

SQLExec("Select OPRID from PSOPRALIAS where PERSON_ID = :1", RD_PERSON.PERSON_ID.Value, &lstrOPRID);

If All(&lstrOPRID) Then
try
rem ***** Set the Log File *****;
&fileLog = GetFile("C:\temp\USER_PROFILE.log", "w", "a", %FilePath_Absolute);
&fileLog.WriteLine("Begin");
&oSession = %Session;
&oSession.PSMessagesMode = 3;

&oUserProfile = &oSession.GetCompIntfc(CompIntfc.USER_PROFILE);
If &oUserProfile = Null Then
errorHandler();
throw CreateException(0, 0, "GetCompIntfc failed");
End-If;

&oUserProfile.InteractiveMode = True;
&oUserProfile.GetHistoryItems = True;
&oUserProfile.EditHistoryItems = True;

&oUserProfile.UserID = &lstrOPRID;

If Not &oUserProfile.Get() Then
errorHandler();
throw CreateException(0, 0, "Get failed");
End-If;

If RD_PERSON.HNSPERSONSTATUS.OriginalValue <> "I" And
RD_PERSON.HNSPERSONSTATUS.Value = "I" Then
&oUserProfile.AccountLocked = 1;
End-If;

If Not &oUserProfile.Save() Then
errorHandler();
throw CreateException(0, 0, "Save failed");
End-If;

catch Exception &ex
WinMessage(&ex.ToString());
&fileLog.WriteLine(&ex.ToString());
end-try;

&fileLog.WriteLine("End");
&fileLog.Close();
End-If;

Then subsequently, I get the following errors:-

(18,2) - Data being added conflicts with existing data. (18,2)

(91,37) - Error saving Component Interface. {USER_PROFILE} (91,37)