API to Update Profile Value - Local to SSO

DECLARE

L_SUCCESS BOOLEAN;

CURSOR uid is

SELECT user_name,user_id from fnd_user where user_name in

(select user_name from apps.fnd_user where email_address in

(select email_address from apps.per_all_people_f where 1=1 and employee_number in ('215677'

)));

BEGIN

DBMS_OUTPUT.put_line('----------------Applications SSO Login Types Profile Updated to LOCAL-------------');

DBMS_OUTPUT.put_line('-------------------------Profile Updatation Started  -----------------------------');

FOR I IN UID LOOP

L_SUCCESS := FND_PROFILE.SAVE('APPS_SSO_LOCAL_LOGIN','LOCAL','USER',i.user_id);

--L_SUCCESS := FND_PROFILE.SAVE('APPS_SSO_LOCAL_LOGIN','SSO','USER',i.user_id);

IF L_SUCCESS

THEN

DBMS_OUTPUT.put_line(i.user_name||'==>'||'Success');

ELSE

DBMS_OUTPUT.put_line('Profile Update Failed . Error:'||sqlerrm||i.user_name);

END IF;

COMMIT;

END LOOP;

 DBMS_OUTPUT.put_line('--------------------------Profile Updatation Completed------------------------------');

end;